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THE MATHEMATIC 
OF GROWTH 


■ HOW THINGS GROW 

■ SURFACE AREA AND VOLUME 

■ STRUCTURAL PROBLEMS 

■ RATE OF GROWTH 

■ FIBONACCI NUMBERS 


Computers are more often 
associated with mathematics than 
nature, but you’ll find that they can 
give important insights into the way 
things grow and develop 

Computers can be used to model all sorts of 
real-life situations. Surprisingly, this does not 
just apply to inanimate objects, and one field 
where this is very useful is in exploring the 
way living creatures behave in nature. It turns 
out that nature is closely linked to 
mathematics — often in unexpected ways — 
and, as usual, whenever there is a mathemat- 
ical connection computers can be called in to 
study the process, do the calculations and 
display the results. 

This article looks at a few ways that 
computers can be used to study the way 
things grow. All forms of life are at some stage 
capable of changes in size or number or 
form — given suitable conditions. And all 
these can be referred to as growth. Only the 
first two will be covered here, along with a 
few other interesting ways in which maths 
explains nature, or nature follows maths. 


HOW THINGS GROW 


First of all, it is best to understand a little 
more about the ways things do actually grow. 
Growth — change in size that is — involves the 
formation of new structural materials. Both 
plants and animals find raw materials from 
the environment and from respiration. 
Overall growth of a creature is achieved in two 
different ways, either as an increase in the 
number of cells, by cell division, or an 
increase in the size of individual cells by cell 
growth. 


MEASURING SIZE 


Since growth occurs in such different ways it 
is not immediately obvious how to measure it. 
Is it best to measure the weight, as with 
babies, or the height, as with growing chil- 
dren? Or would volume be a more accurate 
measurement, or surface area? As usual there 
is no one answer, and different types of 
measurements are suitable for different crea- 
tures. But one of the most interesting studies 
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is to compare measurements taken in two 
different ways as the creature grows. 

The most revealing measurements for 
animals are volume (or weight) and surface 
area. As an animal gets larger these increase at 
different rates and this has important conse- 
quences for the creature itself because the size 
and shape of an animal are closely related to 
its way of life. 

You can soon see why these increase at 
different rates if you look back at the article on 
pages 404 and 412 and recall that surface 
area is a square measure and volume is a cubic 
measure. The relationship is best understood 
by an example of a simple, regular shape like a 
cube — and the program below demonstrates 
what happens to the volume and surface area 
for different sized cubes. Enter the program 
now and RUN it. You’ll need a Simons’ Basic 
cartridge (or INPUT’S own hi-res graphics 
utility) for most of the Commodore programs 
in this article: 


10GOSUB 180 
20 LET X = 45: LET Y = 35 
30 LET S = 2 
40 GOSUB 140 
50 PRINT AT 1 8,S/5 + X/8;S 
60 LET SA = 6*(S a 2) : LET VO = S a 3: LET 
A$ = STR$ (SA/VO): IF LEN A$>3 THEN, 
LET A$ = A$ (TO 3) 

70 PRINT AT 20,S/5 + X/8 — 1; 

PAPER 0; INK 7;A$;“:1” 

80 INPUT “ENTER SIZE OF 
CUBE (MAX 20)”;A: IF A<S 
THEN GOSUB 180 
90 LET S = A 

100 IF S<1 OR S>20 THEN 
GOTO 80 

110 LET X = X + S'5*1.5 + 5 
120 IF X + S , 5*1.5>255 THE 
GOSUB 180: 

LET X = 45 
130 GOTO 40 
140 PLOT X,Y 
150 LET D = S’5 
160 DRAW 0,D: DRAW D,0: 

DRAW D/3, D/3: DRAW, 

-D,0: DRAW -D/3 
-D/3:DRAW0,-D 
DRAW D,0: DRAW 
D/3, D/3: DRAW 
0,D: DRAW - 
D/3, -D/3: 

DRAW 0, — D 
170 RETURN 
180 BORDER 0: 

PAPER 4: INK 
0: CLS 

190 FOR N = 0 TO 8: 


PRINT AT N,0; PAPER 

1 ;“□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□ 
□ □□”: NEXT N 

200 PRINT AT 18,0; INK 1;“SIDE:”;AT 20,0; 

“A/V :” 

210 PRINT AT 0,4; PAPER 1; INK 7; 

“A/V = RATIO OF AREA:VOLUME^ 

220 RETURN 

KB 

10 GOSUB 180 
30 S = 1 
40 GOSUB 140 



50 TEXT 
X-5.Y + 1, 
STR$(S),1 ,1 ,8 
60 SA = 6‘ 
(ST2):VO = S|3 
70 TEXT X— 5,Y + 
10,LEFT$(STR$ 
(SA/V0),3) 

+ “ 1 ”, 1 , 1,8 
75 POKE 198,0. 
WAIT 198,1: 
POKE 198,0 
80 CSET(0): 
INPUT “□ENTER 
SIZE IF CUBE(MAX 
20)”;A 

100 IF A<1 OR A> 

20 THEN 80 
105 CSET(2):IF A<S 
THEN GOSUB 180 
110 S = A:X = X + S'4‘ 
1.5 + 15 

120 IF X + S'4’1.5 + 15> 
319 THEN GOSUB 180 

130 GOTO 40 
140 XX = X:YY =Y 
150 D = S*5 

160 A = 0:B = D:GOSUB 300 

161 A = D:B = 0:GOSUB 300 

1 62 A = D/3: B = D/3:G0SU B 300 

163 A= — D:B = 0:GOSUB 300 

1 64 A = — D/3: B = — D/3.G0SUB 300 

165 A = 0:B = — D:G0SUB 300 

166 A = D:B = 0:GOSUB 300 

167 A = D/3:B = D/3:GOSUB 300 

168 A = 0:B = D:GOSUB 300 

169 A= — D/3:B = 

— D/3:G0SUB 300 

1 70 A = 0: B = — D:G0SUB 300 
175 RETURN 

180 HIRES0,1 :X = 40:Y = 170 
200 TEXT 0,170, “SIDE”, 1,1, 8 



210 TEXT 60, 0,“A/V = RATIO 
OF AREA: VOLUME”, 1,2, 8 
220 RETURN 

300 LINE XX,YY,XX + A,YY — B, 

1 :XX = XX + A:YY = YY — B:RETURN 


a 

10 MODE1 
20 PROCSCREEN 

30 INPUT“ENTER SIZE OF CUBE”,S: 

S = INT(S):IF S<1 OR S>40 THEN 30 
40 PRINT:PRINT 
50 PROCCUBE:GOTO30 
100 DEF PROCCUBE 

110 IF PX + S*20>1150 THEN PROCSCREEN 
120 MOVEPX,PY + 16'S:DRAWPX,PY:DRAW 
PX + 1 6*S,PY:DRAWPX + 1 6*S,PY + 1 6*S: 
DRAWPX,PY + 1 6*S: DRAWPX + 4*S,PY + 
20'S:DRAWPX + 20*S,PY + 20’S:DRAW 
PX + 20'S,PY + 4'S:DRAWPX + 1 6'$,PY 
130 MOVEPX + 16‘S,PY + 16'S:DRAWPX + 
20'S,PY + 20*S 

1 40 VDU5: MOVEPX + S*8 - 32, PY - 32: 
PRINT;S 

1 50 SA = VS'SMl = S*S*S:R = INT(1 0*SA/ 
VOL)/1 0:MOVEPX + S’8 - 64,1 24:PRINT;R 
“:1”:VDU4 

160 PX = PX + S'20 + 120 
170 ENDPROC 
180 DEF PROCSCREEN 
190 VDU 26,12 

200 PRINT“A:V THE RATIO OF SURFACE 
AREA TO VOLUME” 

210 COLOUR1 31 :COLOUR0: PRINTTAB{0,28) 
‘‘A:V”:COLOUR3:COLOUR1 28 
220 PX = 1 88: PY = 188 
230 VDU 28,0,31,39,29 
240 ENDPROC 


E5 


10GOSUB 180:CLS 
20 X = 45:Y = 156 
30 S = 2 
40 GOSUB 140 
60 SA = 6*S # S:VO = S # S # S 
70 PRINT“ SIZE = ”;S;TAB(11);“SA/VOL 
RATIO = ”;:PRINTUSING“# . # #:1”; 
SA/VO:PRINT 

80 INPUT“ENTER SIZE OF CUBE (1-20)”;A: 

IF A < S GOSUB180 
90 S = A 

100 IF A<1 OR S>20 THEN 80 

110 X = X + S*7.5 + 5 

120 IF X + S # 7.5>255 GOSUB1 80:X = 45 

130 GOTO 40 

140 SCREEN1 ,0 



1 50 DRAW“BM” + STR$(INT(X)) + V + 
STR$(INT(Y)) + “S” + STR$(INT(S # 3)) + 
“C1E2NR6U6C4R6G2L6NE2D6R6NU6E2U 

6 ” 

160 IF INKEY$< >“□” THEN 160 
170 RETURN 
180 PMODE3: PCLS2 
190 RETURN 

The program lets you enter a number for the 
dimensions of a cube. It then draws the cube 
and prints out the ratio of surface area to 
volume. Start off with a small cube, say with a 
side of four units, then enter progressively 
larger numbers to simulate growth. You’ll see 
that as size increases, the ratio of area to 
volume decreases. In other words the volume 
(or weight) increases at a much faster rate than 
the surface area. 

Most of the program is concerned with 
formatting the screen and drawing the cubes 
but the important part is contained in Line 60 
or in Line 150 on the Acorn. S is the length of 
one side of the cube, so the surface area of one 
face of the cube is S # S and the surface area of 
the whole cube (there are six faces) is 6 # S’S. 
The volume on the other hand is S cubed, or 
S*S*S. The ratio is simply area divided by 
volume, worked out later on in the same line 
or in Line 70 on the Commodore and Vic. For 
example, when S equals 2 the ratio is 6*2*2 
over 2*2*2 which equals 3:1. If the size is 
doubled the ratio is 6*4*4 over 4*4*4 which 
is 3:2 or 1.5:1 showing that the area is 
relatively much less. 

Animals are not shaped like a cube, of 
course, and you might like to adapt the 
program to make it more realistic. For 
example small, round animals like mice are 
better represented as a sphere, while tall, thin 
animals like humans are closer to a collection 
of cylinders — one each for the body, arms and 
legs. When you adapt the program you’ll need 
to know that the surface area of a sphere is 
4*PI*radius 2 and the volume is 
4/3*PI*radius 3 . And for a cylinder the area is 
2*PI*radius*height plus 2*PI*radius 2 and 
the volume is PI* radius 2 * height. 

However the general principles are the 
same and for any of the shapes you’ll find that 
the area increases at a slower rate than the 
volume. 


GROWTH AND LIFE 


These mathematical relationships are very 
important in the animal kingdom and affect 
the habitats and activities of animals. A mouse 
has a small volume and mass and so has a high 
relative surface area. This means that it will 
radiate heat rapidly from its body (depending 
on its environment). In order to survive the 


mouse must keep warm. It does this by 
burning up food for energy. Due to its size the 
mouse is forced to eat as much as one half of 
its body weight in food every day, just to 
survive. 

In comparison, an elephant has a very large 
mass and volume with a low relative surface 
area. This means that it radiates proportio- 
nately less heat than a mouse so it does not 
require such a high proportion of its body 
weight in food every day. Such size relations 
explain why large animals are much better at 
survival in cold Arctic conditions where food 
is scarce. 


BONES, MICE AND ELEPHANTS 


Mass to area relations also help to explain why 
animals and plants are limited to a maximum 
physical size. Given the proportions of a 
particular species there is a very definite limit 
to the size it can reach. The ultimate size of an 
animal is limited by the size of its supporting 
bones. 

If you double the size of an animal (that is 
height, length and width) the weight increases 
by eight times but the area of supporting bone 
increases by only four times. To support the 
increase in weight the bones would have to be 
disproportionately thicker, for the size of the 
animal, as the scale increases. Eventually the 
animal would be so cumbersome it would be 
unable to move on land. 

So simple scaling up won’t do. If a mouse 
were enlarged to the size of an elephant, 
keeping the same proportions, then its limbs 
would be totally unable to support it. This is 
why species of different sizes have such 
different overall proportions. 

A weight of ten tonnes is near the limit for 
the largest land animal, the elephant. The 
very largest dinosaurs weighed up to 80 
tonnes but may have spent much of their time 
standing partially immersed in water. Marine 
animals have the advantage of support from 
the surrounding water. This reduces the 
limits to their growth; blue whales can weigh 
more than 150 tonnes and reach 30 metres in 
length. Obviously it would be virtually impo- 
ssible for such an animal to have limbs that 
could support its bulk out of water. Growth 
limits to marine animals are mainly related to 
heat losses. 

Apart from determining how large a creature 
can grow, it is also interesting to find out how 









Comparing volume and surface area How the growth rate of a plant changes 


fast it grows. The next program shows how 

280 NEXT K 

270 LINE GX,1 98 — GY — K,GX + 3,1 98 — 

the rate of growth changes as a plant grows 

290 LET GY = GY + 4 

GY — K,RND(1)*2 + 2 

from a seedling to maturity. The plant grows 

300 LET Y = Y + 1 

280 NEXT K 

slowly at first then rapidly until growth limits 

310 NEXT N 

290 GY = GY + 4 

are reached. It then slows down again until it 

320 FOR Y = 117 TO 140 

300 Y = Y + 1 

stops and eventually dies. Enter and RUN the 

330 PLOT X,Y 

310 NEXT N 

program now: 

340 NEXT Y 

330 LINE X,1 99 — Y,X,1 69 — Y,1 


350 FOR R = 1 TO 10 STEP .3 

345 LOW COL 7,2,8 

Ea 

360 CIRCLE INK 6;X,Y,R 

350 XX = X:YY = 169 — Y:FOR R = 0TO 

10 DIM G(11) 

370 NEXT R 

2*7t STEP .1 

20 DATA 2,9,22,35,58,92,104,112,115,117,118 

380 GOTO 380 

355 XI = X + SIN(R)'(RND(1)'10 + 10): 

30 FOR N = 1 TO 11: READ G(N): NEXT N 


Y1 = (169 — Y) + C0S(R)'(RND(1)’ 

40 BORDER 0: PAPER 0: INK 4: CLS 


10 + 10) 

50 LET X = 60: LET Y = 0 

10 DIM G(11) 

360 LINE XX,YY,X1 ,Y1 ,3:XX = XI :YY = Y1 

60 DRAW 80,0 

20 DATA 2,9,22,35,58,92,104,112,115, 

365 LINE X,1 69 — Y,X1 ,Y1,RND(1)*3 + 1 

70 PLOT 30,0: DRAW INK 7;0, 168 

117,118 

370 NEXT R 

80 PRINT INK 2;AT 0,1 ;“HEIGHT” 

30 FOR N = 1 TO 1 1 :READ G(N):NEXT N 

380 GOTO 380 

90 FOR N = 0 TO 1 38 STEP 12 

40 HIRES 0,1 .MULTI 5,6,1 3:C0L0UR 7,1 

□ 

100 PLOT INK 7;30,N 

50 X = 60:Y = 0 

110 DRAW INK 7;- 5,0 

60 LINE 0,199,159,199,2 

10 M0DE1 

120 NEXT N 

70 LINE 30,198,30,40,2 

20 PROCINIT 

130 PRINT AT 20,0;“2”;AT 17,0;“6”;AT 

80 TEXT 0,20, “HEIGHT”, 2, 1,6 

30 PROCGROW 

14,0;“10”;AT 11,0;“14”;AT 8,0;“20”;AT 

90 FOR N = 0 TO 138 STEP 12 

100 GOTO 100 

5,0;“24” 

100 LINE 30,187 — N, 27, 187 — N,1 

1000 DEF PROCLEAVES 

140 PLOT 160,0: DRAW INK 7;0,168 

105 NU = NU + 2 

1010 VDU 29,PX;PY;:MOVE0,0:DRAW -50, 

150 PLOT 160,0: DRAW INK 7;95,0 

130 TEXT 0,1 84 — N,STR$(NU),3,1 ,6:N EXT N 

40 

160 PRINT AT 0,17; INK 6;“GR0WTH”;AT 

140 LINE 100,198,100,40,2 

1020 DRAW —90,20: DRAW -45,80 

1,18;“RATE” 

160 TEXT 90, 20, “GROWTH RATE”,1,1,6 

1030 DRAW 0,0:DRAW 45,80 

170 LET C = 1 

170 C = 1 

1040 DRAW 90,20:DRAW 50,40 

180 LET GX = 161 

180 GX = 1 01 

1050 DRAW 0,0:VDU 29,0;0; 

190 LET GY = 1 

190 GY = 1 

1060 ENDPROC 

200 FOR N = 1 TO 117 

200 FOR N = 1 TO 117 

1070 DEF PROCFLOWER 

210 IF G(C) < > N THEN GOTO 250 

210 IF G(C) < > N THEN 250 

1 080 M0VEPX,G(1 1 ) :DRAWPX,G(1 1 ) + 1 50 

220 PLOT X,Y: DRAW 9,9, PI/2: DRAW 

220 FOR Z = 1 TO 5:LINE X,199-Y,X + 15- 

1090 GCOL0,2:FOR T = 0 TO 2*PI STEP PI/15 

-9, -9, PI/2 

Z,(1 99 — Y) — Z*(N/1 00),INT(RND(1 )*2)* 

1 1 00 M0VEPX,G(1 1 ) + 1 50: PL0T1 7,50’SINT, 

230 DRAW -9,9, PI/2: DRAW 9, -9, PI/2 

2 + 1 

50'COST:NEXT 

240 LET GX = GX + 8: LET GY = 1 : LET 

230 LIN E X,1 99 - Y,X - 1 5 + Z,(1 99 - Y) - T 

1110 ENDPROC 

C = C + 1 

(N/100),1:NEXT Z 

1120 DEF PROCINIT 

250 PLOT X,Y 

240 GX = GX + 5:GY = 1:C = C + 1 

1 1 30 PX = 350:GX = 800:GY = 1 00 

260 FOR K = 0 TO 3 

250 PLOT X,1 99 — Y,1 

1140 VDU 19,1,2,0,0,0 

270 PLOT INK 5;GX,GY + K: DRAW INK 5;8,0 

260 FOR K = 0 TO 3 

1150 DIM G(11) 
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Finding a well-proportioned rectangle 


A population explosion of rabbits 


1160 FOR T = 0 TO 1 1 :READ A:G(T) = A'5 + 
100: NEXT 

1170 DATA 0,2,9,22,35,58,92,104,112,115, 
117,118 

1180 M0VE1 50,1 00:DRAW1 50,900 
1190 VDU 5:F0R T = 0 TO 12 
1200 M0VE1 20,1 00 + T’64: DRAW1 50, 

100 + T64 

1210 MOVE20,116 + T'64:PRINT;T’2:NEXT: 
VDU4 

1220 PRINTTAB(0,2)“HEIGHTD □ □ □ □ 
□ □□□□□□□□GROWTH RATE” 
1 230 M0VEGX,GY + 800:DRAWGX,GY:DRAW 
GX + 400, GY 
1240 ENDPROC 
1250 DEF PROCGROW 
1260 FOR Y = 0TO 10 
1270 FOR T=G(Y) TO G(Y + 1) 

1 280 GCOL0,3:MOVEGX + Y'32,GY + (T- G 
(Y))*4:DRAWGX + Y*32 + 31 ,GY + (T- G 
(Y))*4 

1290 GCOL0,1:PLOT69,PX,T 

1300 NEXT 

1310 PY = G(Y + 1) 

1320 PROCLEAVES 
1330 NEXT 
1340 PROCFLOWER 
1350 ENDPROC 


E 


20 DATA 2,9,22,35,58,92,104,112,115,117,118 
30 FOR N = 0 TO 10:READ G(N):NEXT 
40 PMODE3:PCLS:SCREEN1 ,1 
50 X = 60:Y = 190 

60 LINE(8,23) — (8,1 92),PSET: LINE — (80, 
192),PSET 

80 DRAW“BM20,6S24C7D2BRUNLUBR2LDN 
RDRBRU2BR2LD2RUS8NLS24BED2BRUN 
LUBRS1 6RND3RC8” 

90 FORN = 47 TO 191 STEP 12 
100 LINE(2,N) — (8,N),PSET 


120 NEXT 

140 LINE(1 58,23) -(158,1 91 ),PSET 
150 LINE -(255,1 91 ),PSET 
160 DRAW“BM176,6C6S24LD2RUS8NLS24BE 
ND2RDLFBRNU2RU2LBR2D2EFU2BRS16R 
ND3RS24BRD2BRUNLUBM1 82,24ND2RDL 
FBRU2RDNLDS16BR2U3LR2S24BR2LDNR 
DR” 

170 GX = 1 61 :GY = 1 90 
190 COLOR6,7 
200 FOR N = 1 TO 117 
210 IF G(C) >N THEN 250 
220 CIRCLE(X,Y— 4),15,6,.4,0,.5 
230 CIRCLE(X — 16,Y),16,6,.4,.75,1:CIRCLE 
(X + 16, Y), 16, 6, .4, .5, .75 
240 GX = GX + 8:GY = 1 90:C = C + 1 
250 PSET(X,Y,6) 

260 FOR K = 0 TO 3 

270 LINE(GX,GY - K) - (GX + 8, GY - K), 
PRESET 
280 NEXT 
290 GY = GY — 4 
300 Y = Y — 1 
310 NEXT 

320 FOR Y = 75 TO 58 STEP-1 
330 PSET(X,Y,6) 

340 NEXT:POKE1 78,54 
350 FOR R = 1 TO 15 
360 CIRCLE(X,Y),R„.8 
370 NEXT 
380 GOTO 380 

The programs show graphically what hap- 
pens to the plant. The DATA in Line 20 (Line 
1 170 on the Acorns) gives the size of the plant 
measured at regular intervals. This is used to 
draw both the plant and the graph showing 
the change in the rate of growth. The plant is 
drawn by the routine at Lines 200 to 310 (or 
PROCLEAVES and PROCGROW on the Acorns). 
The axes for the graph and the scales are set 


up by Lines 40 to 160 (PROCI NIT on the 
Acorns), and the bar chart itself is drawn by 
Lines 260 to 280 (Line 1280 in PROCGROW 
on the Acorns). Finally, the flower is drawn 
by Lines 350 to 380 (or PROCFLOWER). 

The graph shows clearly that the plant 
grows slowly at first, speeds up and then 
slows down when it has reached its maximum 
size. The DATA is taken from a real experiment 
which measured how the area of a cucumber 
leaf changes as it grows. But the same figures 
can be used to represent how a complete plant 
grows. 


GENERATIONS AND NUMBERS 


As animals breed they multiply to form a 
number of generations. Take the case of 
rabbits. One pair of rabbits — the first 
generation — produces another pair. These 
form the second generation. The original pair 
or rabbits then produces another pair and the 
second generation contains two pairs. 
Eventually a series of generation numbers are 
built up as follows: 1, 1, 2, 3, 5, 8, 13, 21, and 
so on. The next program shows graphically 
how the numbers of rabbits increase over the 
generations and you’ll see that these numbers 
are indeed built up: 



10 BORDER 0: PAPER 1: INK 7: CLS 

20 FOR N = 0 TO 7: READ A: POKE USR 
“a” + N,A: NEXT N 

30 FOR N = 0 TO 7: READ A: POKE USR 
“b” + N,A: NEXT N 

40 let c$= M nnn □□□□□□□□ 
□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□ 
□□□□□□□□□□□□□□□ 

50 LET A$ = CHR$ 144: LET B$ = CHR$ 145 








60 PAPER 0: CLS : PAPER 1 

70 FOR N = 1 TO 6: PRINT C$": NEXT N 

80 PRINT INK 5;AT 0,0;“GEN”;'“0”"“1”"' 

90 FOR N = 1 TO 20 

100 IF N>1 THEN FOR P = 1 TO 10: BEEP 
.01, P: NEXT P 

110 READ X,Y: PRINT AT Y,X;A$;A$;AT 
Y+1,X;B$;B$ 

120 NEXT N 
130 FOR N = 1 TO 20 
140 READ X,Y,XX,YY: PLOT X,Y: DRAW INK 
4;XX,YY 
150 NEXT N 

160 PRINT AT 18,7; INVERSE 1; “RABBIT 
FAMILY TREE” 

170 INK 6: INVERSE 1: PRINT '“GENERATION 

□ □□□:D0ddidd2dd3d 

□4D □5”!“RABBIT PAIRSD D:D1 

□ □1DD2DD3DD5DD8” 

180 GOTO 180 

190 DATA 144,80,48,28,52,62,62,24,60,126, 
118,120,126,254,252,63 
200 DATA 16,0,16,3,22,6,11,6,16,9,6,9,11,12, 
25,9,22,1 2,3,1 2,6,1 5,1 4,1 5,1 6,1 2,28,1 2,26, 
15,2,15,10,15,18,15,22,15,30,15 
210 DATA 136,159,0,-7,144,159,32,-31, 

1 28,1 35, - 34, - 7,1 36,1 35,0, - 31 ,1 84, 

1 J 2,0, - 31 ,1 92,1 1 2,8, - 8,88,1 11,-25, 
-7,96,111,0,-31 

220 DATA 48,87, - 1 0, - 7,56,87,0, - 31 ,24, 
63, - 5, - 7,90,63, - 8, - 7,1 28,87, - 8, 
-8,120,79,0,-23,136,87,0,-7 
230 DATA 144,63,7,-7,184,63,0,-7,208,88, 
0,-31,216,88,7,-7,240,63,7,-7 

Ee [E 

1 PRINT “□H”SPC(9)“.a7i7:«J| SI 

SPC(9)“1” 

2 PRINT SPC(10)“[D” 

3 print “lIBBBBBBBBBtD 

HBBBBBBBBB” 

4 PRINT SPC(10)“[D||H” 

5 PRINT “1”SPC(8)”7t7i||fc|I3”SPC(6) 

(<<| » 

6 PRINT SPC(9)“|ZimUIJIII3” 

7 print “□BBBBBBB0BIH 

BBBBDBBBBB” 

8 PRINT SPC(7)“0 □ □ □”SPC(4)“C” 

9 PRINT “2”SPC(4)“||7i7r||UBU 

U^BUUUfe|2” 

1 0 PRINT SPC(6)“0 II II II [D II II II 

mins” 

11 print “UBBBBIZimBBB 
□BBBmBBmBBB” 

12 PRINT 3||||ll^milU^ 

ii ii ii m u^iiii3” 

13 PRINT SPC(4)“0||m||||limil 

uumuiiis 

14 PRINT SPC(4)“G!in]tltltimil 

1111 mil uws 




15 print “UBB0BBIDBSB 
mBBBmBmmmBm” 

16 PRINT “tUnn ii u 7171 II II* 

n || || Tin || || B H ” 

19 print “UBBBBBBBBB 
BBBBBBBBBBB” 

20 PRINT □ RABBIT FAMILY 
TREED” 

22 GOTO 22 

El 

10 M0DE1:VDU 23;8202;0;0;0; 

20 DIM G(21),P(20),PAR(20) 

30 FOR T=1 TO 20: READ G(T):NEXT:G 
( 21 ) = 0 

40 FOR T=1 TO 20:READ P(T):NEXT 
50 FOR T=1 TO 20:READ PAR(T):NEXT 
60 VDU 23,224,144,80,48,28,52,62,62,24,23, 
225,60,1 26,1 1 8,1 20,1 26,254,252,63 
70 PRINTTAB(1 1,1 )“RABBIT FAMILY TREE”' 
“GEN” 

80 FOR T=0 TO 5:PRINTTAB(1 ,T*4 + 4);T: 
NEXT 

90 RN = 1:REPEAT 
100 IF RN = 1 THEN 130 
110 D = INKEY(1 50) 

120 MOVEP(RN)'64 + 192,1 024 -(G 
(RN)*128 + 112):DRAW P(PAR(RN))*64 + 
192,1024-(G(PAR(RN))*128 + 208) 

130 VDU 31,P(RN)*2 + 5,G(RN)’4 + 4,224, 
224,8,8,10,225,225 

140 RN = RN + 1:IF G(RN) = G(RN — 1) 

THEN 120 
150 UNTIL RN> 20 

160 PRINTTAB(0,28)“GENERATIOND □ □ 

□ □□□□:D0ddidd2dd3d 

□4DD5” 

170 PRINTTAB(0,30)“NEW RABBIT PAIRSD 

□ :D1DD1DD2DD3DD5DD8” 

180 G = GET:MODE1 

190 DATA 0,1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 
5,5 

200 DATA 7,7,10,4,7,2,12,4,10, 
0,8,14,2,6,12,0,4,8,10,14 
210 DATA0,1 ,1 ,2, 2, 4, 3, 4, 3, 

6,5,7,6,5,7,10,8, 

11,9,12 


10 PMODE3:PCLS: 

DIM R(9) 

20 SS = PEEK 

(186) *256 
+ PEEK 

(187) 


30 FOR K = SS TO SS + 480 STEP 32 
40 READA,B:POKEK,A:POKEK + 1,B 
50 NEXT 

60 GET(2,0) — (1 3,1 5),R,G 
70 PUT(1 4,0) - (25,1 5),R,PSET:GET(2,0) - 
(25,1 5), R,G 
80 PCLS4:SCREEN1,0 
90 COLOR3:FOR K = 0 TO 5 
100 LINE(0,32‘K) — (255,32*K + 24), 

PSET,BF 
110 NEXT 

120 COLOR1 :FOR N = 1 TO 20 
140 READ X,Y:PUT(X,Y) — (X + 23, Y + 1 5),R, 
PSET 

150 IF N>1 THEN PLAY“01T0CCEFGAB” 

160 READ X,Y,XX,YY:LINE(X,Y) 

170 NEXT 
180 GOTO 180 

190 DATA 169,170,153,170,165,170,165,170, 

1 69,90,1 65,1 54,1 65,86,1 65,90,1 69,1 06 
200 DATA 169,106,165,90,165,154,165,106, 

1 65,1 06,1 49,1 06,1 49,1 06,1 49,1 06,1 65,90 
210 DATA 114,7,124,24,124,38,114,39,113,56, 
69,70,59,71 ,1 38,23,1 78,68,1 71 ,71 ,57,89, 

42.100.31.103 

220 DATA 124,57,124,101,115,103,195,87, 

208.101.199.103 

230 DATA 29,120,12,133,3,135,68,89,68,133, 
59,135,124,121,124,133,115,135 
240 DATA 180,89,180,133, 
171,135,222,120,234, 

133,225,135,12,153, 

12,165, 

3,167 






250 DATA 40,1 21 ,42,1 65,33,1 67,68,1 53,72, 

1 65,63,1 67,1 1 3,1 20,98,1 65,93,1 67,1 24, 
153,144,165,137,167 

260 DATA 178,153,176,165,167,167,208,121, 
206,1 65,1 97,1 67,234,1 53,234,1 65,225,1 67, 
124,70,124,70 

This time, the Commodore and Vic programs 
work without Simons’ Basic or a Super 
Expander. They simply print the rabbits as n 
signs and position the generations straight 
from the strings in the program. The Spec- 
trum, Dragon and Tandy programs start by 
creating the rabbit UDGs from DATA in Lines 
190 and 200. Lines 40 to 80 on the Spectrum 
and 60 to 1 10 on the Dragon and Tandy print 
up bars on the screen for each generation then 
the next section up to Line 180 prints the 
rabbits and the lines joining the generations. 
The DATA for the lines and positions is READ 
from Lines 210 to the end. 

The Acorn program first sets up arrays for 


the generation number G(T), the x coordinate 
of the rabbits P(T) and the parent number of 
each rabbit PAR(T). Line 60 creates the 
UDGs and the next two lines print the bars 
for each generation. The loop in Lines 90 to 
150 draws each pair of rabbits and the lines 
linking the generations. 

As organisms multiply they also spread out 
and colonise more areas. A good example of 
this is the way bacteria divide and multiply. 
Computers can also be used to represent this 
and a well-known program is the game of 
Life. Although this can be written in BASIC 
it is impossibly slow. However, Spectrum 
users will already have a good example on 
their ‘Horizons’ introductory tape. 


FIBONACCI NUMBERS 


The series of numbers listed above have some 
interesting properties and are observed 
throughout nature and art. They are called 
the Fabonacci numbers after the thirteenth 


century Italian mathematician. Each number 
can be calculated by adding together the 
previous two numbers in the series. 

One unusual property of these numbers is 
seen in taking any three of them in succession. 
Multiply the first and the last together and 
compare this to the square of the middle one. 
The results will always differ by one. For 
example with numbers 5, 8 and 13, 5 times 13 
is 65 and 8 squared is 64. 

Dividing each number by its right-hand 
neighbour results in a series of fractions or 
ratios and these are also found in nature and 
art. For example, it was discovered that not all 
rectangular shapes are equally pleasing to 
look at. Some are too narrow or too long or 
too fat. It is easily shown that the best- 
looking rectangle has a special ratio of width 
to length known as the golden ratio. This ratio 
was found to be equal to (SQR(5) — 1)/2, 
which works out as 0.6180. If you work out 
any of the Fibonacci fractions you’ll find that 
the larger numbers you use the nearer the 
result gets to the golden section. For example 
8/13 is 0.6154, 13/21 is 0.6190 and 
21/34 is 0.6176. So as the Fibonacci 
series progresses, its values 
approach that of the 
golden ratio. 

Try out the next 
program. It lets 
you draw 
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different shaped rectangles so you can judge 
for yourself which proportions look best: 


10 DIM F(1 2): DIM D(14) 

20 LET D(1) = 1: LET D(2) = 1 

30 FOR N = 3 TO 14 

40 LET D(N) = D(N — 1) + D(N — 2) 

50 NEXT N 

60 FOR N = 1 TO 12 

70 LET F(N) = D(N)/D(N + 1 ) 

80 NEXT N 

90 BORDER 0: INK 7: PAPER 0: CLS 
100 LET A = 15: LET B = 8 
110 LET X = 20: LET Y = 1 70 
120 GOSUB 310 

130 PLOT 0,130: DRAW INK 2;255,0 
140 PLOT 0,128: DRAW INK 2;255,0 
150 PLOT 80,130: DRAW INK 2;0,45 
.160 PLOT 82,130: DRAW INK 2;0,45 
170 PRINT AT 2,1; INK 3;“B”;AT 4,5;“A” 

180 INPUT “ENTER LENGTH OF SIDE A (MAX 
70)”;A 

1 90 IF A < 1 OR A>70 THEN GOTO 180 
200 INPUT “ENTER LENGTH OF SIDE B (MAX 
40)”;B 

210 IF B < 1 OR B> 40 THEN GOTO 200 
220 LET X = 1 28 - (A*3/2) : LET Y = 1 20 
230 GOSUB 310 

240 PRINT AT 0,11; INK 5;“SIDE 
A = ”;A;“IHSIDE B = ”;B 
250 FOR N = 1 TO 12 
260 IF A/B = F(N) OR B/A = F(N) THEN 
PRINT AT 2,11 “‘FIBONACCI RATIO” 

270 NEXT N 

280 PRINT AT 4,11; FLASH 1; INK 6;“ANY 
KEY TO CONTINUE” 

290 PAUSE 0 
300 RUN 

310 PLOT X,Y: DRAW 3’A,0: DRAW 0,-3‘B 
320 DRAW — 3*A,0: DRAW0,3’B 
330 RETURN 

BE 

10 DIM F(12),D(14) 

20 D(1) = 1:D(2) = 1 
30 FOR N = 3 TO 14 
40 D(N) = D(N — 1) + D(N — 2) 

50 NEXT N 
60 FOR N = 1 TO 12 
70 F(N) = D(N)/D(N + 1) 

80 NEXT N 

90 HIRES 0,1 :MULTI 2,4,5:COLOUR 1,1 
100 A = 20:B = 8 
110 X = 20:Y = 25 
120 C = 2:GOSUB 310 
130 FOR Z = 1 TO 3:LINE 
0,70 + Z,1 59,70 + Z,Z: N EXT Z 
170 TEXT 37,10,“A”,3,1,8:TEXT 
8, 40, “B”, 3, 1,8 

175 POKE 1 98,0:WAIT 198,1:POKE 198,0 


180 CSET(0):INPUT “□ENTER LENGTH OF 
SIDE A (MAX 70)”;A 
1 90 I F A < 1 OR A >70 THEN 180 
200 INPUT “QENTER LENGTH OF SIDE 
B(MAX 30)”;B 

210 IF B < 1 OR B>30 THEN 200 
220 CSET (2):MULTI 

2,4,5:X = 80 — (A‘2)/2:Y = 80 
230 C = 1:GOSUB 310 

240 TEXT 85,5 “SIDE A = ” + STR$(A),3,1,6 
245 TEXT 85, 15, “SIDE B =” + STR$(B),3,1,6 
250 FOR N = 1 TO 12 

260 IF A/B = F(N) OR B/A = F(N) THEN TEXT 
6, 60, “FIBONACCI RATIO”, 3,1 ,10 
270 NEXT N 

290 POKE 1 98,0:WAIT 198,1:POKE 198,0 
300 RUN 

310 BLOCK X,Y,X+A*2,Y + B*4,C:RETURN 

B 

10 MODE 1: DIM F(12),D(14) 

20 D(1) = 1:D(2) = 1 
30 FOR N = 3 TO 14 
40 D(N) = D(N — 1) + D(N — 2) 

50 NEXT 

60 FOR N = 1 TO 12 
70 F(N) = D(N)/D(N + 1) 

80 NEXT 

90 A = 220: B = 1 30:VDU29,64;850; 

100 PROCREC:VDU26:PRINTTAB(0,3)“B” 
TAB(5,6)“A” 

160 GCOL,1:MOVE 0,760:DRAW 1280,760 
170 MOVE 350,760: DRAW 350,1024 
180 VDU28, 0,31 ,39,30 
190 INPUT“LENGTH OF SIDE A (MAX 
250)”, A 

200 IF A < 1 OR A >250 THEN 190 ELSE 
A = A*4 

210 INPUT“LENGTH OF SIDE B (MAX 
150)”,B 

220 IF B<1 OR B > 1 50 THEN 210 ELSE 
B = B'4 

230 VDU 1 2,29,640 — A/2;350 — B/2;:PROCREC 
240 VDU26:PRINTTAB(1 5,1 )“S1DE A = ”;A/4; 

TAB(26,1 )“SIDEB = ”;B/4 
250 FOR N = 1 TO 12 
260 IF A/B = F(N) OR B/A = F(N) THEN 
COLOUR0:COLOUR1 31 :PRINTTAB(18,3) 
“FIBONACCI RATIO”:COLOUR128 
270 NEXT 

280 COLOUR2:PRINTTAB(13,5)“PRESS ANY 
KEY TO CONTINUE” 

290 G = GET 
300 RUN 

310 DEF PROCREC 
320 GCOL0,3:MOVE 0,0:DRAW A,0 
330 DRAW A,B:DRAW 0,B 
340 DRAW 0,0:ENDPROC 


E 


10 DIMF(1 1 ),D(1 3) 


20 D(0) = 1:D(1) = 1 
30 FOR N = 2 TO 13 
40 D(N) = D(N — 1) + D(N — 2) 

50 NEXT 

60 FOR N = 0 TO 11 
70 F(N) = D(N)/D(N + 1) 

80 NEXT 

90 PMODE3:PCLS:CLS 
100 A = 15:B = 8 
1 1 0 X = 20:Y = 22 
120 GOSUB 310 

130 COLOR4:LINE(0,62) - (255,62),PSET 
140 LINE(0,64) — (255,64), PSET 
150 LINE(80,62) — (80,1 7), PSET 
160 LINE(82,62) — (82,1 7), PSET 
170 DRAW“BM9,38C2S8U4R2FGNLFGL2BM 
40,58U3EFDNLD2” 

175 FORK = 1TO900:NEXT 
180 INPUT “ENTER LENGTH OF SIDE A (MAX 
70)D”;A 

190 IF A < 1 OR A >70 THEN 180 

200 INPUT“ENTER LENGTH OF SIDE B (MAX 

40) □ ”;B 

210 IF B < 1 OR B>40 THEN 200 
220 X = 1 28 — A*3/2: Y = 72 
230 GOSUB 310 
250 FOR N = 0 TO 11 
260 IF A/B = F(N) OR B/A = F(N) THEN 
DRAW“BM106,44C2S8NR2D2NRD2BR4U4 
BR2ND4RFGNLFGLBR4NU4R2U4L2BR 
4DND3F2NU3DBR2U3EFDNL2D2BR4L2 
U4R2BR4L2D4R2BR2U4BR8ND4R2D2L2F2 
BR2U3EFDNLD2BR3U4LR2BR2D4BR2R2U 
4L2D4” 

270 NEXT 

280 IF INKEY$ = “” THEN 280 
300 RUN 

310 SCREEN1,0:COLOUR3 

320 LINE(X,Y) - (3'A + X,Y + 3*B),PSET,BF 

330 RETURN 

The program asks you to enter the lengths of 
the sides of a rectangle. If you enter two 
adjacent numbers from the Fibonacci series 
the program tells you it’s a Fibonacci ratio. 

The numbers in the series are worked out 
by Lines 20 to 50 simply by starting with the 
two ones and then adding each number to the 
previous one. They are stored in an array in 
Lines 60 to 80. An example rectangle is 
drawn on the screen by Lines 90 to 170. The 
INPUT routine comes next then a check to see 
if the values entered are a Fibonacci ratio. 

Examples of the Fibonacci fractions are 
also found in nature too. For instance, a spiral 
following leaves on a stem has gaps and turns 
in Fibonacci ratio. Count the number of turns 
the spiral makes starting with one leaf up to 
another leaf in the same position. Then count 
the number of gaps between these leaves. The 
ratio will ususally be 5/3 or 8/5. 
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Of course you’ll need rewards- 
like cake and lemonade— for 
doing all this programming. But 
there are risks to be run too. Slimy 
snakes are out to get you! 

After the first screen has been put up, the 
other screens are simply modifications to it. 
In the second level, Willie has to contend with 
potholes. These are simply created by 
overwriting the slope on the first screen with 
the background colour in the shape of the hole 
you want to create. Then the snakes are added 
by writing that background colour. The 
routine that makes the snake move will be 
added later. 


The following program adds the holes, snakes 
and rewards: 


elb 


ab 


ed 

his 


org 58455 

hip Id b,4 

Id a, (57344) 

hlq push be 

Id hi, 57272 

Id be, 1561 6 

Id b,a 

Id a, 45 

inc b 

call print 

Id de,8 

Id de,32 

add hl,de 

add hl,de 

djnz ab 

pop be 

push hi 

djnz hlq 

pop be 

ret 

Id hi, 191 

snp Id hi, 457 

Id a, 58 

call snq 

call print 

Id hi, 401 

Id a, (57344) 

call snq 

cp 0 

Id hi, 31 4 

jr z,ed 

call snq 

push at 

ret 

call his 

snq Id a, 4 

pop af 

Id be, 57232 

cp 1 

snr push af 

jr z,ed 

Id a, 43 

call snp 

call print 

ret 

Id de,32 

Id hi, 457 

add hl,de 

call hip 

pop af 

Id hi, 401 

dec a 

call hip 

jr nz,snr 

Id hi, 31 4 

ret 

call hip 

print org 5821 7 

ret 

# 


REWARDING ROUTINES 


The accumulator is loaded with the contents 
of memory location 57344. This location is 
going to be used to store what level you are 
on. The HL is loaded with the address of the 
beginning of the rewards in the data table. 

The level number is then transferred from 
the accumulator to the B register and the B 
register is incremented. The number 8 is 
loaded into the DE register and that is added 
to the data pointer in HL. 

The ad loop then continues to add 8 onto 
the HL register until B has counted down to 
0. The djnz operates on the B register remem- 
ber, decrementing and jumping if the result is 
not zero. This process moves the data pointer 
along until it points at the beginning of the 
right reward. Each appears in a single 
eight-by-eight character square, so iti 
data uses eight bytes in the data table. 

The result of this multiple addition is left 
in the HL register. But you want it in the BC 
register when you call the print routine. And 
the easiest way to transfer it is to push it on the 
stack and pop it off into the other register. 

Loading A with 58 sets the colour of the 
reward and the print routine is called again. 
This was the routine given in part one of 
Cliffhanger that prints data on the screen. 
Here it prints the reward on the screen in the 
appropriate colour. 


ON THE LEVEL 


The contents of the location that carries the 
level is loaded into the accumulator again. 


The 'CLIFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called 'CUFF HANGER' re- 
leased for the Commodore 64 and published by 
New Generation Software Limited. 



This is compared to 0 and if it 
is 0 the jr z,ed jumps to the end 
of the routine where it returns. 

If the level is not zero, the 
processor continues and preserves the 
level number by pushing it onto the 
stack. The his routine is then called 
which prints the holes on the screen. 
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The level is then recalled by popping it off 
the stack and compared to 1. If you are on 
level 1 there are potholes but no snakes. And 
if 1 is in the accumulator cp 1 gives the result 
zero and sets the zero flag, so jr z,ed jumps to 
the end of the routine again and returns. 

If not, the snp routine is called. This is the 
one that prints the snakes. Then the program 
returns. When the main driver program is 
added later, the processor will return there. 
But for now it will return to BASIC. 


WHOLLY HOLES 


The next subroutine is wholly devoted to 
making holes. This begins with the label his 
which is called by the main routine when 
holes need to be dug. 

It consists of three little modules each two 
instructions long. Each module begins with a 
Id, hi instruction. This loads the HL register 
with the print position of the top of each hole. 
Then the hip routine is called. This actually 
prints the hole on the screen, over the slope 
generated in the last part of Cliffhanger. 

There are three modules because there are 
three holes, each with its own print position, 
which is loaded into HL afresh each time, but 
each is created in exactly the same way by the 
hip routine. 


DIGGING THE HOLES 


B is loaded with 4 — the hole is to be four 
character squares deep. This is stored by 
pushing it onto the stack. The BC register 
pair is then loaded with the location of an 
empty space. This is, in fact, part of the data 
to the top of the screen. 

A is loaded with 45 to give the sky colour 
and the print routine is called yet again. This 
prints the first square of the sky colour over 
the slope, effectively taking the first spadeful 
of soil out of the hole. 

Loading DE with 32 and adding it to HL, 
moves the HL screen pointer down one line. 
The pointer is then popped off the stack again 
and the djnz decrements and jumps back if it 
hasn’t become zero. So the processor goes 
round this loop four times, each time printing 
one more square of sky, taking one more 
spadeful of soil out of the hole. 


THE SNAKE ADDER 


The rest of the routine adds the snakes. The 
first seven instructions are like those at the 
beginning of the hole-printing routine. They 
load the HL register with the print position of 
the snake, then the subroutine that actually 
prints the snake is called. 

Again this is like the hole-print routine — 
after all, the snakes fit in the holes. 

This time the counter is kept in the 



accumulator because you need to keep track of 


LDA 

#125 

the data pointer. Before, with the holes, the 

EE 

STA 

$D015 

data pointer was loaded up again each time 


LDX 

#3 

with the address of a space. But for the snake, 


LDY 

#0 

the data pointer has to count along the snake 

LOOPA 

LDA 

#5 

data in the data table. The print routine 


STA 

$D02A,Y 

automatically updates the pointer, moving it 


LDA 

#234 

onto the next byte of data. And as the data 


STA 

$07FB,Y 

pointer is held in the BC register you don’t 


INY 


want to keep on having to store its value — on 


DEX 


the stack or elsewhere. Swapping between 


BNE 

LOOPA 

them, especially when using the A register 


RTS 


only adds one extra instruction. The djnz 

DD 

LDA 

#127 

instruction in the hole-digging routine works 


JMP 

EE 

on the B register, so if you are using a counter 

FF 

LDA 

#7 

in A it must be replaced with dec a and jr 


STA 

$C00E 

nz,snr. 


LDA 

#232 


TESTING 


To test the routine POKE 57344 with the level 
number 0 to 3 and call the routine each time 
with a RANDOMIZE USR 58455 to check that 
you are getting the holes on level 1, the snakes 
on levels 2 and 3 and a different reward each 
time. 

us 

The following routine determines which 
sprites appear at which level and initializes the 
start position of the man and the boulder. And 
it sets up the sea. 



ORG 

24576 


JMP 

FF 

GG 

LDA 

$C000 


CMP 

#1 


BNE 

AA 


LDA 

#71 


STA 

$D015 


RTS 


AA 

CMP 

#2 


BNE 

BB 


LDA 

#125 


STA 

$D015 

RET 

LDX 

#3 


LDY 

#0 

LOOP 

LDA 

#15 


STA 

$D02A,Y 


LDA 

#236 


STA 

$07FB,Y 


INY 



DEX 



BNE 

LOOP 


RTS 


BB 

CMP 

#3 


BNE 

CC 


LDA 

#127 


STA 

$D015 


JMP 

RET 

CC 

CMP 

#4 


BNE 

DD 













35 (MACHINE CODE, 35 


STA 

$C00D 

STA $D00C 

LDA 

$C002 

LDA $D01E 

STA 

$C002 

LDA SD01F 

STA 

$C00C 

JMP GG 

LDA 

STA 

#2 

$C012 

;.f:>mjuMP aboutJ/. ; 

LDA 

#33 

This routine starts with a jump to a label 

STA 

SC011 

halfway through the routine itself. And the 

LDA 

#18 

processor only jumps back to the beginning 

STA 

$D000 

again when it has completed the second half. 

LDA 

#161 

While this is not the best way to write 

STA 

$D001 

programs, it is a useful device to switch two 

LDA 

#66 

bits of programming round without rewriting 

STA 

SD010 

all the source code. 

LDA 

#74 

The first part of the program determines 

STA 

$D00D 

which sprites are used at which level. The 

LDA 

#64 

second half deals with the sea. 



MsimsKiaHiis; 

During the course of writing the game a table 
of variables is constructed. This starts at 
49,152 and is used for temporary storage of 
the parameters that change during the game. 

The variable stored in 49,152 itself spec- 
ifies the level that the player has reached and 
thus determines which screen and which 
sprites are required. 

The contents of 49,152 are loaded into A 
and compared with 1. If the game is not on 
level one, the BNE instruction branches for- 
ward over the next subroutine. If it is on level 
one, A is loaded with the number 71 which is 
stored in 53,269. This is the sprite display 
enable location. The sprites are switched on 
by a 1 in the bit pattern. So the sprites zero, 
one, two and six are switched on. Then the 
processor returns. 

The next subroutine starts off in the same 
way, only this time it checks to see if the game 
is on level two. If it is, sprites three, four and 
five are switched on, too, but sprite two — 
which corresponds to the boulder — is 
switched off. 

Then X is loaded with 3 as a loop counter, 
and Y is loaded with 0 as an offset which will 
be incremented each time the processor goes 
round the loop. So 15— the background 
colour, is loaded into the colour locations for 
sprites three, four and five. The correspond- 
ing sprite pointers are then set. The subrout- 
ine digs the holes. 

The next subroutine checks for level three. 
If the player is on level three, the boulder 
sprite is switched back on — an extra two is 
added and stored in the sprite enable location. 
But the holes still have to be dug so the 
processor jumps back to the RET routine 
above. 

On level three, the boulder sprite is turned 
back off again and the new loop — LOOPA — is 
performed. This is the same as the hole 
digging routine above, only the colour is set to 
5 — the snake colour— and the sprite pointer is 
directed by the snake data instead. 

And on level five, the boulder sprite is 
switched back on again and the snake-print 
routine is called. 


SEA SET 


The variables in 49,165 and 49,166 determine 
the state of the sea. The delay that determines 
how quickly the sea rises is in 49,154 — this 
can be varied during the game to make 
Willie’s scramble more desperate and the 
game harder. 

The X and Y positions of the sprites which 
make up the sea are then set and the sprite 
collision flags are cleared. 
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The following routine sets up the snakes 


LOOP 


ORG 

24832 

LDA 

#116 

STA 

$D006 

LDA 

#146 

STA 

$D007 

LDA 

#122 

STA 

$D008 

LDA 

#160 

STA 

$D009 

LDA 

#130 

STA 

$D00A 

LDX 

#3 

LDY 

#0 

LDA 

#20 

STA 

$C364,Y 

SBC 

#5 

INY 


DEX 


BNE 

LOOP 

RTS 



480 LDA#4 
490 JSR&FFEE 
500 TXA 
510ASLA 
520 ASLA 
530 ASLA 
540 ASLA 
550 ASLA 
560 JSR&FFEE 
570 TXA 
580 LSRA 
590 LSRA 
600 LSRA 


The X and Y coordinates of the three holes 
and snakes are loaded into the accumulator 
and stored in memory locations 53,254 to 
53,259. These are the locations which control 
the X and Y positions of sprites three, four 
and five. 

The loop staggers the tongues so that they 
don’t all flick out at the same time. 


□ 


610 JSR&FFEE 
620 TYA 
630 ASLA 
640 ASLA 
650 ASLA 
660 ASLA 
670 SEC 
680 SBC #4 
690 PHP 
700 JSR&FFEE 
710 TYA 
720 LSRA 
730 LSRA 
740 LSRA 
750 LSRA 
760 PLP 
770 SBC #0 
780 JSR&FFEE 
790 RTS 
800] 

850 DATA5.1 8,0,4,141 
860 DATA8,1 0,1 70,8,10 
870 DATA1 71 ,8,1 0,1 72,8 
880 DATA1 0,1 73,8,1 1,11 
890 DATA1 1,18,0,2,174 


DIGGING THE DATA 


The first block of DATA in Line 100 gives the 
position of the holes and snakes. Line 110 
reads this into a data table where the machine 
code program can access it. 

And the next section of DATA in Line 160 
contains the details of the potholes 
themselves. 


PICK OF THE POTS 


To print anything on the screen you have to 
move the cursor into position first. This is 
done by the instructions in Lines 270 to 320. 
As before, loading the accumulator with 31 
and jumping to the subroutine at FFEE gives 
the equivalent of a VDU 31 . That routine is 
then primed to accept two more parameters — 
the first it will take to be the X coordinate of 
the proposed cursor position and the second 
will be taken as the Y coordinate. 

Indirect indexed addressing is used to 
pick up the appropriate values of the coordi- 
nates from the data table constructed by the 
BASIC program in Lines 100 and 110. The 
base addresses used are those of the first and 
second byte of the data table. The offset Y is 
set to 0 by Line 250 on the first pass. With the 
loop, opened by the label .Lbl in Line 260, it 
is incremented by the two INYs in Lines 330 
and 340 to pick up the next two coordinates 
for the next hole. 


THE HOLE 


This time X is used as the index register and is 
initialized to 0 in Line 350. Line 370 picks up 
the bytes of the data table that refer to the 
shape of the hole. These are output to the 
screen by jumping to the subroutine which 


40 RESTORE 


910 DATA1 76,8,1 0,1 77,4 

routine given in the last part of Cliffhanger — 

100 DATA4,1 6,9,1 3,1 6,11 

920 FORA% = &1 996TO&1 9B8:READ?A%: 

the one that prints out a character from the 

1 1 0 FO RA% = &1 928TO&1 92D: R EAD?A%: 

NEXT 


character set if its number is less than 128 and 

NEXT 

1 60 DATA1 7,8,32,8,1 0,32,8,1 0,32,8,1 0,1 68,8, 

970 P% = &1 9B9 

980 [OPTPASS 


a UDG if the number is greater than 127. X is 
then incremented and compared to 15. The 

10,169 

1 70 F0RA% = &1 92ETO&1 93C:READ?A%: 

990 .Snakes 

1000 JSRHoles 


processor branches back to output the next 
byte of data, if the end of the hole data has not 

NEXT 


1010 LDY#0 

1150TAY 

been reached. 

220 P% = &1 93D 

350 LDX#0 

1020 .Lb3 

1160 LDX#0 

If you think that this is the only part of the 

230 [OPTPASS 

360 .Lb2 

1030 TYA 

1170 .Lb4 

program that does not call &FFEE, you’d be 

240 .Holes 

370 LDA&1 92E,X 

1040 PHA 

1180 LDA&1 996,X 

wrong. The subroutine at &1803 uses the 

250 LDY#0 

380 JSR&1803 

1050 LDA&1 928,Y 

1190 JSR&1 803,X 

&FFEE routine to output to the screen once it 

260 .Lbl 

390 INX 

1060 ASLA 

1200 INX 

has decided whether an ASCII character or a 

270 LDA #31 

400 CPX #15 

1070 TAX 

1210 CPX #35 

UDG is required. That said, it is clear that the 

280 JSR&FFEE 

410 BNELb2 

1080 LDA #32 

1220 BNELb4 

data in the hole data table is designed to drive 

290 LDA&1 928,Y 

420 CPY#6 

1090 SEC 

1230 INY 

the &FFEE routine in the normal way. 

300 JSR&FFEE 

430 BNELbl 

1100 SBC&1 929,Y 

1240 INY 

The leading 17 gives a VDU 17 — or 

310 LDA&1929.Y 

440 RTS 

1110 ASLA 

1250 CPY#6 

COLOUR — command when output through 

320 JSR&FFEE 

450 .Tab 

1120TAY 

1260 BNELb3 

&FFEE. So the 8 following it gives colour 8. 

330 INY 

460 LDA #25 

1130 JSRTab 

1270 RTS 

This has been redefined as logical colour 6 in 

340 INY 

470 JSR&FFEE 

1140 PLA 

1280 ]NEXT 

the last part of Cliffhanger. This gives fore- 


1060 
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ground cyan— you are going to overwrite the 
green slope foreground with the background 
cyan colour. 

The next byte is 32, ASCII for a space. 
Then the 8 moves the cursor back onto the 
space that has just been printed and the 10 
moves it down to the character square below. 
This is done three times to print three 
squares. Then UDG 168 is printed out, the 
cursor is moved back and down again, and 
UDG 169 is printed. These two UDGs shape 
the bottom of the hole. 


MOVING 


So far you have been shifting the text cursor 
around the screen before you print. But in 
some circumstances wou will need to move 
the graphics cursor too. The routine to do this 
is Lines 450 to 780. 

This routine is almost exactly the same as 
the DRAW routine given in part one of Cliff- 
hanger. Here, though, after 25 has been 
output to the routine at &FFEE to give a 
PLOT, a 4 is output there too. This gives a 
PLOT 4, or a MOVE. But the X and Y 
coordinates are encoded into and decoded out 
of a single data byte in exactly the same way 
using repeated arithmetic shifts left and log- 
ical shifts right. 

The SBC #4 in Line 680 simply MOVEs 
down one extra pixel. The PHP pushes the 
process register — that is, the flags — onto the 
stack, the register is restored after the high 
byte of the coordinate has been decoded and 
zero is subtracted using an SBC#0. Notice 
that this is a subtract with carry and the carry 
flag is in the same condition as it was 
immediately after the SBC #4 in Line 680. 
This adjusts the high byte if subtracting the 4 
has taken the low byte through zero. 


SNAKE BYTES 


Lines 850 to 910 carry the data for the snake 
and Line 920 READs it into a data table. 

The instruction in Line 1000 calls the 
routine that prints the holes starting in Line 
240 above. Then the index register Y is 
initialized to 0, the value of Y is transferred 


the X coordinate, the byte from the data table 
is arithmetically shifted left— to multiply it by 
two — and transferred into the X register. 

Then the next data byte is subtracted from 
32, multiplied by two by an arithmetic shift 
left and transferred into the Y register. The 
tab routine is then called. This is the routine 
given above which MOVEs the graphics cursor 
into the appropriate position. 

The loop counter is then pulled back off 
the stack and put into the Y register and X is 
initialized to 0 before the next loop is entered. 
Then the appropriate byte of the snake table 
is loaded up and the UDG print routine at 
&1803 is called. X is incremented and com- 
pared to 35, and the processor branches back 
until all 35 bytes of snake have been output. 

Y is incremented twice to move the routine 
along to the next two bytes of the snake/hole 
position data table. It is then compared to 6 
and the processor branches back until all 6 
bytes of position data have been used and the 
three snakes have been printed in the three 
holes. 

At the moment these snakes do not move. 
You will get them wiggling in a later part. 


TESTING 


As routine given in former parts of Cliffhan- 
ger are called from the routines given here, 
you must have them in memory before you 
CALL any part of this program. Then key in 
the following: 

PAGE = &2000 
NEW 

M0DE2:CALL&1 82D:CALL&1 855:CALL&1 894: 
CALL&19B9 


THE GOODIES 


The following program prints up the items of 
Willies picnic on the screen. Don’t forget to 
type PAGE = &3000 and NEW before you key 
it in: 



into A and A is pushed onto the stack to save 
it. 

The snake/hole position is then loaded up 
from the data table constructed by Lines 100 
and 110. The position in that data table are 
encoded for the text screen, so they have to be 
re-evaluated for the graphics screen. To give 


30 DATA134, 

40 DATA1 71,26 
50 DATA1 90,26 
60 DATA204,26 
70 DATA220,26 
80 F0RA% = &1 A7CT0&1 A 
85:READ?A%:NEXT 
120 DATA1 8,0,4 


130 DATA1 78,1 78,10 
140 DATA8,8,179 
150 DATA1 79,1 1 ,8 
160 DATA8,1 8,0 
170 DATA8,1 80,1 81 
180 DATA1 0,8,8 
190 DATA1 82,1 83,11 
200 DATA8,8,18 
210 DATA0,2,1 84 
220 DATA1 85,1 0,8 
230 DATA8,1 86,1 87 
240 DATA255 
280 DATA1 8,0,1 
290 DATA1 88,1 88,10 
300 DATA8,8,189 
310 DATA1 90,1 1 ,8 
320 DATA8,1 8,0 
330 DATA3,1 91 ,1 92 
340 DATA255 
380 DATA1 8,0,3 
390 DATA9, 193,8 
400 DATA1 0,1 94,8 
410 DATA1 8,0,1 
420 DATA195 
430 DATA255 
470 DATA1 8,0,4 
480 DATA1 96,1 97,8 
490 DATA8,1 8,0 
500 DATA2,1 98,1 99 
510 DATA8, 10,200 
520 DATA255 
560 DATA1 8,0,4 
570 DATA201 ,202,8 
580 DATA8, 10,203 
590 DATA8,1 1 ,18 
600 DATA0, 1,204 
610 DATA205,8,8 
620 DATA1 0,206,207 
630 DATA8,8,11 
640 DATA1 8,0,8 
650 DATA208,209,8 
660 DATA8, 10,210 
670 DATA211 
680 DATA255 

720 F0RA% = &1 A86TO&1 AFE: READ 
?A%:NEXT 

780 FORPASS = 0TO3STEP3 

790 P% = &1 AFF 

800 [OPTPASS 

810 .Fruit 

820 LDA&83 

830 ASLA 

840 TAX 

850 LDA&1A7C,X 
860 STA&73 
870 LDA&1A7D,X 
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880 STA&74 
890 LDX # 36 
900 LDY # 60 
910 JSR&1964 
920 LDA#5 
930 JSR&FFEE 
940 LDY#0 
950 .Lbl 
960 LDA(&73),Y 


970 JSR&1803 
980 INY 

990 LDA(&73),Y 
1000 CMP #&FF 
1010 BNELbl 
1020 LDA #4 
1030 JSR&FFEE 
1040 RTS 
1050] NEXT 


To run it, you’ll need the other programs 
given so far in memory, then key in: 

PAGE = &2000 
NEW 

M0DE2:CALL&1 82D:CALL&1 855:CALL&1 894: 
CALL&19B9 

Then POKE in the level number using ?&83 = 
followed by a number between 0 and 4. Then: 

CALL&1AFF 


PICNIC DATA 


The DATA in Lines 30 to 70 contain the 
pointers to blocks of data which define each of 
Willie’s missing picnic goodies. The DATA for 
the sandwich is in Lines 120 to 230. The 
DATA for the apple is in Lines 380 to 330. The 
DATA for the lemonade is in Lines 380 to 420. 
The DATA for the ice-cream is in Lines 470 to 
510. And the DATA for the cake is in Lines 560 
to 670. Each block of data ends with 255, so 
that the processor can recognise the end. 

Each of these goodies appears, on a differ- 
ent screen. The sandwich appears on screen 
one, the apple on screen two, the lemonade on 
screen three, the ice-cream on screen four and 
the cake on screen five. 


SCREENING THE GOODIES 


Zero-page memory location &83 is used to 
store the number of the level the game has 
reached, and thus the screen that is required. 
The LDA&83 in Line 820 loads the level 
number into the accumulator and the ASLA in 
Line 830 multiplies it by two — the DATA 
pointers take up two bytes, so you have to 
count along the data pointer table two at a 
time. 

This number is then used as an index, so it 
is transferred into the X register and used as 
an offset in the indexed instructions that load 
up the data pointers in Lines 850 and 870. 
The two bytes of the appropriate data pointer 
are stored in &73 and &74. 

The X and Y coordinates of the position 
the goodies are going to be printed in are 
loaded into the X and Y registers. Then the 
processor jumps to the tab subroutine given 
in the first program in this part of Cliffhanger 
which positions the graphics cursor. 


Five is loaded into the accumulator and the 
&FFEE routine is called. This directs all 
printing to the graphics cursor instead of the 
text cursor. 

The Y index register is set to 0 and the first 
byte of data for the appropriate goody is 
loaded up by using the indirect indexed 
instruction LDA(&73),Y. The pointer in & 73 
and &74 points to the beginning of the block 
of data for the appropriate goody, remember. 
Then the processor jumps to the UDG print 
routine at &1803 to print out the first part of 
the goody on the screen. 

The Y index is then incremented and the 
next byte is loaded up. This is compared to 
&FF — or 255 — to see if the end of that block 
of data has been reached. If it hasn’t the 
processor branches back and prints out the 
next byte. If it has, the processor drops out of 
the loop and proceeds to the next instruction. 

The accumulator is loaded with 4 and the 
&FFEE routine is called again. This directs 
any subsequent screen output to the text 
cursor. 

SB kd 

The following prints the holes and the snakes 
on the screen for the Dragon and the Tandy 
when you have progressed to the appropriate 
level: 


ELB 



ED 

HOLES 


SNAKE 


ORG 

19289 

r \ 


■T/'i 

LDA 

18238 


LDX 

#4591 

LDB 

#16 


LDU 

#18078 

MUL 



JSR 

HOLPR 

ADDD 

#18142 


LDX 

#3833 

TFR 

D,U 


LDU 

#18078 

LDX 

# 2782 


JSR 

HOLPR 

JSR 

CHARPR 


RTS 


LDA 

18238 

HOLPR 

LDB 

#4 

BEQ 

ED 

HOLPRI 

PSHS 

U,X,B 

PSHS 

A 


JSR 

CHARPR 

JSR 

HOLES 


PULS 

B,X,U 

PULS 

A 


LEAX 

256, X 

CM PA 

#1 


LEAU 

16,U 

BEQ 

ED 


DECB 


JSR 

SNAKE 


BNE 

HOLPRI 

RTS 



RTS 


LDX 

#5095 

CHARPR 

LDB 

#2 

LDU 

#3071 

CHARI 

PSHS 

B,X 

JSR 

HOLPR 


LDB 

#8 

LDX 

#4591 

CHARZ 

PULU 

A 

LDU 

#3071 


STA 

,x 

JSR 

HOLPR 


LEAX 

32, X 

LDX 

#3833 


DECB 


LDU 

#3071 


BNE 

CHARZ 

JSR 

HOLPR 


PULS 

X,B 

RTS 



LEAX 

i,x 

LDX 

#5095 


DECB 


LDU 

#18078 


BNE 

CHARI 

JSR 

HOLPR 


RTS 



1062 


•*> 
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TO TEST THIS PROGRAM 


As this program adds graphics to the scenery 
you’ve already got you’ll need the rest of the 
game in memory before you execute it. Then 
RUN the following BASIC program to test it. 

5 PCLEAR4: CLEAR 200,16999 
10 EXEC 19000: EXEC19109 
20 POKE 18238,0 
30 EXEC 19289 
40 GOTO 40 

Line 10 executes the bit of the game you’ve 
keyed in from previous issues of Cliffhanger. 
Line 20 sets the level to 0 and Line 30 
executes the new part of Cliffhanger given 
above. Line 40 is just an infinite loop to hold 
the display on the screen. 

To make sure this new part of the program 
is working properly, you’ll have to BREAK this 
program and edit Line 20, POKEing new levels 
into memory location 18,238. The 0 here will 
just give you the slope — the obstacle on level 
one of Cliffhanger, the boulders, is given 
later. A one will give you the potholes. A two 
will give you the holes and the snakes. Level 
three also features boulders for extra dif- 
ficulty, but not yet. 

Try testing all four levels, though, to make 


sure that you have got all Willie’s picnic 
things drawn properly. 


ON THE LEVEL 


Memory location 18,238 is going to be used to 
store the level of difficulty you’re on. Thus its 
contents are loaded into the accumulator. 16 
is put into the B register and the instruction 
MUL multiplies the contents of those two 
registers together. The result is put in D. 

Each reward is made up of 16 bytes of data, 
so to count along the data table to the start of 
the appropriate reward for the level attained, 
you have to multiply the level number by 16. 

The number 18,142 is added to the result 
in the D register, so that its contents now 
point to the start address of the data you want. 
This pointer is then transferred into U, the 
user stack pointer. This effectively turns the 
appropriate section of data into the user stack. 

The X register is then loaded with 2,814, 
which is the screen position where you want 
the reward printed. And the processor jumps 
to CHARPR which prints the reward. 

LDA 1 8238 loads the level number into the 
accumulator again. The processor then bran- 
ches to the label ED, which marks the RTS at 
the end of the program, then the contents of 
18238 are zero. On level one — or level 0 in 
computer parlance — you needn’t go any fur- 
ther with this routine. 

If you’re on level two, though, the pro- 
cessor pushes the level number onto the 
hardware stack to preserve it. Then it jumps 
to the subroutine which digs the holes. 

The level number is pulled back off the 
hardware stack into the accumulator and 
compared with one. If it is one — and you’re 
on level two — the JSR SNAKE instruction, 
which is the routine that prints the snakes, is 
skipped and the processor returns. 


HOLES AND SNAKES 


The hole routine and the snake routine work 
exactly the same. They each have three cycles 
of three instructions. 

In each cycle the X register is loaded with 
the screen position of the top of the hole and 
the U register is loaded with the address of the 
beginning of the appropriate data. Then the 
processor jumps to the HOLPR subroutine. 

Obviously all the holes are the same, so the 
data pointer is always initialized at 3,071 . And 
all the snakes — though the graphic printed is 
actually a snake in a hole — are one snake in the 
data table and start at 18,078. 

And obviously the snakes in their holes 
have to be printed at the same place at the 
holes they replace. The top of first 
hole/snake-hole is at 5,095, the second is at 
4,591 and the third is at 3,071. 


Both snakes and snake-holes are printed 
over the original slope drawn in an earlier part 
of Cliffhanger. This means that the rest of the 
screen can be left as it is. 


DIGGING IT 


Both the HOLES and the SNAKES routines call 
the HOLPR routine. And it is this routine that 
digs out the potholes and the snake-pits, 
spadeful by spadeful from the top. 

B is loaded with four — the holes are going 
to be four character squares deep. U, X and B 
are pushed onto the stack to preserve them 
while the processor jumps to the CHARPR 
subroutine. This is the most basic routine of 
all. It just prints the character pointed to by 
the data pointer onto the screen in the 
appropriate place. 

So if you are on level two and are printing 
holes, the data pointer in U will point to the 
empty hole data and the routine will print a 
block of the background colour at the screen 
position in X. If you are at level three or four, 
U points to the snake-pit data and this is 
printed as a block at the screen position in X. 

Once the character block has been printed 
B, X and U are pulled off the stack again, then 
X is loaded with X + 256 which moves it onto 
the beginning of the next character block and 
U is loaded with U + 1 6, which moves the data 
pointer onto the graphic. Then B, the spade- 
ful counter, is decremented and the processor 
loops back if B hasn’t counted down to zero. 
If it has and all three spadefuls have been dug 
out, the processor returns. 

Each character block that is printed on the 
screen is 16 bits — that is, two bytes wide — 
and eight bytes deep. So the B counter is 
loaded with 2 to count across the hole. This is 
saved by pushing it onto the hardware stack 
along with the print position in X. B is then 
reloaded with eight to count down the hole. 

The data is then retrieved by pulling it off 
the user stack into the accumulator. And this 
is stored at the position pointed to by the X 
register. This actually prints the hole or 
snake-pit data on the screen. 

X is then reloaded with X + 32, to move the 
screen pointer down one line of pixels on the 
screen. The B counter is then decremented 
and the processor branches back to print the 
next byte of data on the screen until the B 
counter has counted down from eight to zero. 

X and B are then pulled of the stack again. 
X is loaded with X -I- 1 which moves the screen 
pointer onto the next character square to the 
right and B is decremented. If it hasn’t 
counted down from two to zero, it branches 
back to dig out the next column of the hole or 
snake-pit. And when both columns have been 
dug, the processor returns. 
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mnmm 


PLANNING THE 
FUTURE 


Here is the final part of the calendar 
and diary program. It adds the 
printout routines and lets you SAVE 
and LOAD the diary lists either to 
tape or to disk 


If you SAVEd the last two parts of the program 
LOAD them back in now and enter the remain- 
ing lines given here. You’ll then have a 
complete program and can start to use it to 
keep track of future appointments and events. 

The instructions for using the program 
were given with the last two parts so look back 
at them to see what to do. Extra instructions 
for SAVEing and LOADing the data are given 
below. 

The program is actually very straightfor- 
ward to use. The main menu lets you choose 
exactly what you want the program to do, and 
each option is well-prompted so you know 
what to enter. The entries are error-trapped 
so you needn’t worry if you accidentally type 
in the wrong type of data — the program will 
simply ask you to enter it again. 


SAVING THE LISTS 


When you’ve entered all of the data you 
should save the lists using option 4 on the 
Commodore or option 8 on the others. The 
program is designed to save the lists to tape. 
Changes to the program to allow it to work 
with a disk drive are given separately after the 
main program. 

Next time you use the program answer Y to 
the question ‘have you any existing lists’ and 
the data will be loaded back in again. It can 
then be altered, deleted and updated, viewed 
or printed out, and then the new list saved. 
The data is saved in a file called ‘DIARY’ so 
save t he main program under a different 
BS CALENDAR, say. 


1760 LET M4 = 0: LET A4 = 0 
1770 INPUT “YEAR:”;YR: IF YR <1753 OR 
YR > 29999 THEN GOTO 1770 
1780 GOSUB640 
1790 GOSUB 2480 
1800 CLS 

1810 POKE 23692,255 

1820 PRINT #P;“YEARD”;YR 

1830 PRINT # P: LET KB = 0: GOSUB 1920: 

PRINT #P 
1840 GOSUB 2460 


1850 FOR z= 1 to 12 
1860 LET M0 = z 

1870 PRINT # P;M$(M0"9 — 8 TO M0*9) 

1 880 LET T2 = 5: LET S2 = 0: GOSUB 2020 
1890 IF P = 2 THEN IF INKEY$ = “” THEN 
GOTO 1890 
1900 NEXT z 
1910 RETURN 

1 920 LET X2 = 0: LET C2 = 0: LET D2 = 0 
1940 IF P = 3 THEN LET KB = KB + 1 
1950 PRINT # P;Z$( TO X2); 

1960 FOR d = 1 TO 7 

1970 INK 4: IF d = 1 THEN INK 2 

1 980 PRINT # P;Z$( TO KB);s$((d - 1 ) 

*3 + 1 TO (d — 1)'3 + 3); 

1990 NEXT d 
2000 INK 7 
2010 RETURN 
2020 PRINT 

2030 IF P = 3 THEN PRINT AT 10,4; FLASH 
1;“0UTPUT GOING TO PRINTER” 

2040 LET M5 = 0: LET XP = 0: LET X2 = 0: 

LET W2 = 0: LET A$ = LET D$ = 

2050 IF S2 = 1 THEN LET A$ = “D”: LET 
W2 = 4 

2060 IF S2 = 0 THEN LET X2 = 7: LET W2 = 3 
2080 LET DA=1 

2090 LET KB = MO: GOSUB 270: LET 
M5 = KB 

2100 GOSUB 560: LET K2 = 7: LET XP = FN 
M (KB) 

2110 PRINT # P;Z$( TO XP'W2); 

2120 LET DA = 0 

2130 PRINT # P;Z$( TO X2); 

21 40 LET DA = DA + 1 : LET D$ = A$ + (STR$ 
(DA)) + “D”: IF LEN D$<W2 THEN LET 
D$ = D$ + Z$( TO W2 — LEN D$) 

2150 IF A$ = THEN PRINT #P;D$;: GOTO 
2170 

2160 LET KB = T2: GOSUB 350: PRINT #P; 

INK KB;D$; 

2170 LET XP = XP + 1 
2180 IF NOT (XP>6 OR DA = M5) THEN 
GOTO 2140 

2190 LET XP = 0: PRINT #P: IF S2 = 1 THEN 
PRINT #P 

2200 IF DA< >M5 THEN GOTO 2130 
2210 IF M0 = ME THEN PRINT #P;: PRINT 
#P;“Easter SundayD”;M$(ME*9-8 
TO ME'9);DE 

2220 IF P = 3 THEN PRINT AT 10,0;z$: PRINT 


AT 10,13;“READY” 

2230 RETURN 
2240 GOSUB 2510 

2250 LET T2 = 0: LET MX = 0: LET N2 = 0: 
LET A$ = “”: LET CL =0: LET M9 = M0: 
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■ 

USING THE PROGRAM 

■ 

SAVEING THE DIARY LISTS 

TO TAPE 

■ 

LOADING BACK THE DATA 

■ 

UPDATING THE INFORMATION 


■ 

ADDING THE PRINTOUT ROUTINE 

■ 

MAKING THE CHANGES FOR 

DISK DRIVES 

■ 

CHANGING THE PROGRAM FOR 


THE ELECTRON 


LET Y9 = YR 
2260 GOSUB 2480: CLS 
2270 GOSUB 2570: PRINT #P 
2280 PRINT # P;“DAYD □ □ □ □ ENTRY”: 
PRINT AT 0,18;“Any key for”'TAB 18;“ 


next entry” 

2290 PRINT #P 
2300 GOSUB 2460 

2310 IF MO = ME THEN PRINT #P;INK5; 
DE;“D □ Easter Sunday” 


2320 PRINT #P 
2330 FOR t = 1 TO 4 
2340 LET MX = Q(t) 

2350 IF MX = 0 THEN GOTO 2410 
2360 FOR N = 1 TO MX 
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2370 LET K$ = L$(t, N) 

2380 LET KB=t 

2390 LET K2 = 3: GOSUB 470: IF K2 = 1 
THEN PRINT #P;INKZ(t); K$(2 TO 3); 
K$(10 TO ) 

2400 NEXT N 

2410 IF INKEY$ = “” THEN GOTO 2410 
2420 NEXT t 

2430 FOR 1 = 1 TO 100: NEXT I 
2440 IF INKEYS = “” THEN GOTO 2440 
2450 LET MO = M9: LET YR=Y9: RETURN 
2460 IF INKEYS = “” THEN GOTO 2460 
2470 RETURN 

2480 PRINT : PRINT “WOULD YOU LIKE A 
PRINTOUT (Y/N)?”: LET K$ = “yn”: 
GOSUB 1480 

2490 LET P = 2: IF KB = 1 THEN LET P = 3 
2500 RETURN 

2510 INPUT “MONTH ?”;MO 
2520 IF MO<1 OR MO >12 THEN GOTO 
2510 

2530 INPUT “YEAR ?”;YR 
2540 IF YR < 1 735 OR YR > 29999 THEN 
GOTO 2530 
2550 GOSUB 640 
2560 RETURN 

2570 PRINT #P; PAPER 1; INK 7; 

M$(M0'9— 8 TO MO‘9);“D”;YR 
2580 RETURN 

sa 

1740 FL = 0 

1750 FOR N1 =1 TO 4:CD(N1) = ASC 
(MID$(DL$(C,LX),N1,1)) 

1760 NEXT N1 :CD(4) = CD(4) + (ASC 
(MID$(DL$(C,LX),5,1 ))*256) 

1770 IF CD(4) >YY THEN FL = 0: RETURN 
1780 IF CD(1) = 1 AND M > =CD(3) THEN 
FL = 1:RETURN 

1790 IF CD(1 ) = 2 AND M > = CD(3) AND 
M — CD(3) — INT((M — CD(3))/3) 

*3 = 0 THEN FL=1:RETURN 
1800 IF CD(1) = 3 AND CD(3) = M THEN 
FL=1:RETURN 

1810 IF CD(1 ) = 4 AND CD(3) = M AND 
CD(4) = YY THEN FL = 1 
1820 RETURN 

1830 IF K = 6 THEN M = M — 1:RETURN 
1840 IF K = 5 THEN M = M + 1:RETURN 
1850 IF Z = 1 THEN Z=0:RETURN 
1860 IF Z = 0 THEN Z = 1:RETURN 
1870 IF PP = 0 THEN PRINT“Q” 

1880 PRINT'D DIARY FORD”; 

MID$(MN$,M'9 — 8,9):PRINT 
1885 IF Mo EM THEN 1910 
1890 PRINT'D DATE 
□ □:”;STR$(ED) 

1900 PRI NT“ □ EVENT □ : □ EASTER 
SUNDAYS 

1910 ML=VAL(MID$(ML$,2*M — 1,2)): 

IF M = 2 THEN ML=ML + LY 


27 


azmiJSR 


27 






1920 C = CP:IFC > 3THENC = 0 
1930 PRINTTAB(20 — (LEN(ST$(C)) 
•.5))“a”CHR$(CL(C));ST$(C) 

1940 MX=VAL(DL$(C,0)) 

1950 IF MX = 0 GOTO 1990 
1960 FOR CD = 1 TO ML: FOR LX = 1 TO 
MX:CD(2) = ASC(MID$(DL$(C,LX), 

2 , 1 )) 

1970 IF CD = CD(2) THEN GOSUB 2010 
1980 NEXT LX, CD 
1990 RETURN 
2010 GOSUB1 740 
2020 IF FL = 0 THEN RETURN 
2030 AS = STR$(CD):IF LEN(A$) < 2 THEN 
A$ = A$ + “ □ ” 

2040 B$ = DL$(C,LX) 

2050 PRINTA$;CHR$(CL(C)); 

RIGHT$(B$,LEN(B$) — 4) 

2060 RETURN 

2070 PRINT“GUIIUaidB 
HAVE YOU A DIARY LIST SAVED (Y/N)? 

■ 3 ” 

2080 PRiNT'iiuunananc 

□□□□□□□□□□□□□□ 

□□□□□□□□□□□□ 

□ □□□ST 

2090 GET A$:IF A$ = “” GOTO 2090 
2100 IF A$ = “N” THEN RETURN 
2110 IF A$ = “Y” GOTO 2130 
2120 GOTO 2090 

2130 GOSUB 3000:OPEN1 ,DV,0,NM$ 

2140 FOR C = 0TO 3:INPUT#1, 
DL$(C,0):MX = VAL(DL$(C,0)): 

IF MX = 0 GOTO 2160 
2150 FOR N = 1 TO MX:INPUT 
#1,DL$(C,N):NEXT N 
2160 NEXT C:CLOSE1:RETURN 
2170 PRINT" am □ □UPDATED DIARY 
LIST TO BE SAVED (Y/N)?D” 

2180 GET A$: IF A$ = “” GOTO 2180 
2190 IF A$ = “N” THEN RETURN 
2200 IF AS < >“Y” GOTO 2180 
2210 GOSUB 3000:OPEN1 ,DV,1 ,NM$ 

2220 FOR C = 0 TO 3 
2230 MX = VAL(DL$(C,0)) 

2240 FOR N = 0TO MX 
2250 PRINT #1,CHR$(34) + DL$(C,N) + 
CHR$(34) 

2260 NEXT N,C:CLOSE1:RETURN 
2270 PP = 1:OPEN 1,4:CMD1:RETURN 
2280 IF PP = 1 THEN PRINT# 1, 
“□”:CLOSE 1 
2290 PP = 0:RETURN 
3000 NM$ = “”: INPUT “FILE NAME”; 

,MM$:IFNM$ = “” THEN 3000 
3010 DV = 1:INPUT “*(D)ISK OR (T)APE”; 

DV$:IF DV$ = “D” THEN DV = 8 
3020 PRINTTAB(13)“SHaPRESS ANY 
KEY”: POKE 198,0: WAIT 198,1: 

POKE 198,0 

3030 PRINT “□”:RETURN 


2260 DEF PROCprintdays(s%) 

2270 LOCALd,c%,x% 

2280 IF s% = 0 x% = 7 
2290 PRINTSPC(x%); 

2300 FOR d = 0 TO 6 

2310 IF d = 0 c% = 129 ELSE c% = 1 34 

2320 IF P% = 2 c%= 32 

2330 PRINTCHR$c% + STRING$(s%, 

“ □ ”) + MID$(DayName$,d*3 + 1 ,3); 
2340 NEXT 
2350 ENDPROC 

2360 DEF PROCprintmonth(type%,s%) 

2370 LOCALmax%,xpos%,x%,w%, 
a$,d$ 

2380 IF s% = 1 a$ = “D”:w%=4 
2390 IF s% = 0 x%=7:w% = 3 
2400 Day% = 1 

2410 max% = FNmonthL(Month%) 

2420 xpos% = FNdayNo MOD7 
2430 PRINTSPC(xpos%'(w% + 1 )); 

2440 Day% = 0 
2450 REPEAT 
2460 PRINTSPC(x%); 

2470 REPEAT 

2480 Day% = Day% + 1 :d$ = a$ + STR$ 
(Day%) + “D”:IF LENd$<w% 
d$ = d$ + “D” 

2490 PRINTCHR$(FNmarker 
(type%));d$; 

2500 xpos% = xpos% + 1 
2510 UNTIL xpos% > 6 OR Day% = max% 
2520 xpos% = 0:PRINT:IFs% = 1 PRINT 
2530 UNTIL Day% = max% 

2540 IF Month% = Meast%:PRINT' 

CHR$1 31;“ Easter SundayD”; 
MID$(MonthName$,Meast%* 

9 — 8,9);Deast% 

2550 ENDPROC 
2560 DEF PROCdiary 
2570 LOCALt%,max%,n%,a$,col%, 
month%,year% 

2580 VDU 14 

2590 PROCmydate:PROCprinter:CLS 
2600 PROCmyheader:PRINT 
2610 PRINT“DAY”;CHR$134; 

SPC(5)“ENTRY” 

2620 PROCspacebar 
2630 IF Month%=Meast% PRINT; 
Deast%;CHR$1 34;“Easter Sunday”: 
PRINT W m 
2640 FOR t%=0 TO 3 
2650 col% = 1 29 + t%:l F t% = 3 col% = 1 33 
2660 IF t% = 2 THEN col% = 1 32 
2670 IF P% = 2 col% = 32 
2680 max% = VAL(List$(t%,0)) 

2690 IF max% = 0 GOTO2740 
2700 FOR n%=1 TO max% 

2710 a$ = List$(t%,n%) 

2720 IF FNcheck(aS) = 1 PRINTSTRS 
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(ASC(MID$(a$,2,1 )));“□ 
CHR$col%;RIGHT$(a$,LENa$ — 4) 

2730 NEXT 

2740 PRINT:IF P% = 0a$ = GET$ 

2750 NEXT 

2760 VDU3:a$ = GET$ 

2770 VDU 15 

2780 ENDPROC 

2790 DEF PROCspacebar 

2800 VDU3,31 ,4,24,1 32,1 57,1 35: 

PRINT“Any Key to continue 
□ □”;:VDU156,28,0,23,39,5,P% 

2810 ENDPROC 

2820 DEF PROCprinter 

2830 PRINT'“Would you like a printout 

(Y/N)?”:IF FNget(“YN”) = 1 P% = 2 ELSE 
P%=0 

2840 ENDPROC 

2850 DEF PROCmydate 

2860 Month% = FNnoln(1 ,12, “Month:”) 

2870 Year% = FNnoln(1 753,3299, 

“□Year:”) 

2880 PROCeaster 

2890 ENDPROC 

2900 DEF PROCmyheader 

2910 PRINTF$;MID$(MonthName$, 

Month%*9 — 8,9);“ □ ”;Year%; 
TAB(30)CHR$1 56 

2920 VDUP%: PRINTF$;MID$(Month 
Name$,Month%’9 — 8,9);“ □ ”; 
Year%;TAB(30)CHR$156 
2930 ENDPROC 


E5 


2240 'PRINTMONTH -T2 -S2 
2250 M5 = 0:XP = 0:X 2 = 0:W2 = 0: 

A2$ = “”D2$ = “” 

2260 IF S2 = 1 THEN A2$ = “D”:W2 = 4 
2270 IF S2 = 0 THEN X2 = 7:W2=3 
2280 IF P = 2 THEN A2$ = A2$ + “D”: 

W2 = W2 + 1 
2290 DA = 1 

2300 KB = MO:GOSUB 230:M5 = KB 
2310 GOSUB 560:K2 = 7:XP = FNM(KB) 

2320 PRINT# -P,STRING$(XP*(W2), 32); 
2330 DA = 0 
2340 REM 

2350 PRINT # — P,STRING$(X2,“ □ ”); 

2360 REM 

2370 DA = D A + 1 : D2$ = A2$ + M I D$ 
(STR$(DA),2) + “D”:IF LEN (D2$)<W2 
THEN D2$ = D2$ + “D” 

2380 IF A2$ = “” THEN PRINT# — P,D2$;: 
GOTO 2400 

2390 KB = T2:GOSUB 310:MID$ 

(D2$,1,1) = CHR$(KB):PRINT # — P,D2$; 
2400 XP = XP + 1 

2410 IF NOT (XP > 6 OR DA = M5) THEN 
2360 

2420 XP = 0:PRINT# — P:IF S2 = 1 THEN 
PRINT# -P 


2430 IF DA < > M5 THEN 2340 
2440 IF MO = ME THEN PRINT# -P:PRINT 
# -P, “EASTER SUNDAYD”;MID$(MN$, 
ME'9 — 8,9);DE 
2450 RETURN 
2460 'DIARY ROUTINE 
2470 T2 = 0:MX = 0:N2 = 0:A$ = “”: 

CL = 0:M9 = MO:Y9 = YR 
2480 GOSUB 2750:GOSUB 2720:CLS 
2490 GOSUB 2820:PRINT# — P 
2500 PRINT# - P,“DAYD □ □ □ □ 
ENTRY” 

2510 GOSUB 2660 

2520 IF MO = ME THEN PRINT# — P,DE; 

“EASTER SUNDAY”:PRINT# — P 
2530 FOR T2 = 0 TO 3 
2540 CL=159 + 16*T2 
2550 IF P = 2 THEN CL = 32 
2560 MX = VAL(LI$(T2,0)) 

2570 IF MX = 0 THEN 2620 
2580 FOR N2 = 1 TO MX 
2590 A$ = LI$(T2,N2) 

2600 KB$ = A$:GOSUB 470: IF K2 = 1 THEN 
PRINT# — P,MID$(STR$(ASC(MID$ 
(A$,2,1))),2);TAB(3);CHR$(CL);RIGHT$ 
(A$,LEN(A$) — 4) 

2610 NEXT: PRINT# -1 

2620 IF P = 0 ANDINKEY$ = “”THEN 2620 

2630 NEXT 

2640 IF INKEY$ = “’’THEN 2640 
2650 MO = M9:YR = Y9:RETURN 
2660 'WAIT FOR KEY 
2670 PI = PEEK(136):P2 = PEEK(137) 

2680 PRINT@480,“ANY KEY TO CONTINUE”; 
2690 IF INKEY$ = “” THEN 2690 
2700 PRINT@480,STRING$(30,32);: 

POKE 136,P1:POKE 137, P2 
2710 RETURN 
2720 'OFFER PRINTOUT 
2730 PRINT:PRINT“WOULD YOU LIKE A 
PRINTOUT (Y/N)”:KB$ = “YN”: 

GOSUB 1590:IF KB = 1 THEN P = 2 
2740 RETURN 
2750 'MY DATE ROUTINE 
2760 INPUT “MONTH:”;MO 
2770 IF MO<1 OR MO >12 THEN 2760 
2780 INPUT “□YEAR:”;YR 
2790 IF YR <1753 OR YR > 29999 THEN 2780 
2800 GOSUB 650 
2810 RETURN 

2820 'MY HEADER ROUTINE 
2830 PRINTMID$(MN$,MO*9-8,9);“D”;YR 
2840 IF P = 2 THEN PRINT# -2,MID$ 
(MN$,M0’9 — 8,9);“DD”;YR 
2850 RETURN 


CHANGES FOR DISK 


Here are the changes to make to the main 
program to use it with a disk drive, (the 
Commodore program can already be used 
with disk or tape): 


1610 CLS : INPUT “Which drive ? ”;drv 
1620 INPUT “Enter today’s date ”;b$ 

1625 SAVE *“M”;1;“C.” + B$ DATA Q() 
1630 OPEN #4;“m”;1;“D” + b$ 

1660 FOR M = 1 TO Q(N): PRINT 
#4;L$(N,M): NEXT M 
1675 CLOSE #4 

1690 CLS : INPUT “Which drive ?”;drv 
1700 CAT drv: INPUT “Enter name of file 
counter (pre-fixed C.) ”;b$ 

1705 LOAD '“m”;drv;b$ DATA Q() 

1707 INPUT “Enter name of file required 
(prefixed D.) ”;b$: OPEN # 4;“m”;drv;b$ 
1730 FOR M = 1 TO Q(N): INPUT 
#4;L$(N,M);: NEXT M 
1745 CLOSE #4 


Simply delete Line 22 


L T J< 


U 


Delete Line 1890 then add: 


1750 CREATE“DIARY” 

1780 FWRITE“DIARY”;LI$(N,0) 

1810 FOR J = 1 TO 4:FWRITE“DIARY”;STR$ 
(ASC(MID$(LI$(N,P),J,1))):NEXTJ 
1820 FWRITE“DIARY”;MID$(LI$(N,P),5) 
1850 CLOSE 

1910 FLREAD“DIARY”;LI$(N,0) 

1950 FORJ = 1 T04:FREAD“DIARY”;NN$: 
PRINTNN$:LI$(N,P) = LI$(N,P) + CHR$ 
(VAL(NN$)):NEXTJ 

1960 FLREAD“DIARY”;NN$:LI$(N,P) = Ll$ 
(N,P) + NN$ 

1990 CLOSE 



CHANGES FOR THE ELECTRON 


As the program for the BBC is written in 
Mode 7, and uses teletext control codes for 
colour and double-height characters you’ll 
need to make a few changes before it will RUN 
on the Electron. You’ll need to delete Lines 
1080, 1090, 1110 and 1130 and alter the 
following: 

10MODE6 

140 MODE6:C% = FNmenu:MODE6 
1120 PRINT:PRINT 
1150 PRINT 

1440 PRINT F$+ Type$ (t%) 

2150 PRINT 

2485 JM% = FNmarker(type%):IF 
J M% < > 1 35 EOR type% < > 5 
THEN COLOUR0:COLOUR129 ELSE 
COLOUR1 :COLOUR1 28 
2490 PRINTCH R$(JM%);d$; 

2535 COLOURLCOLOUR128 
2910 PRINT 











TELETEX 
ON THE 




Find out how to make the most of 
the Teletext mode on the BBC and 
how to put together the graphics 
shapes to create a complete and 
colourful screen picture 


The real advantage of using the Teletext 
mode on the BBC is that it uses so little 
memory. Computers that have good graphics 
facilities usually need a lot of memory for the 
screen display. In the case of the BBC this 
varies from 8K to 20 K. But the Teletext 
mode — mode 7 — takes only IK! In fact it uses 
exactly 1000 bytes because the screen is 
divided into 25 lines of 40 characters and the 
characters, whether text or graphics, take up 
only one byte each. The graphics are quite 
‘chunky’, but with a little skill you can create 
quite complex and detailed pictures. 

The reason the characters take up so little 
memory is because they are generated by a 
special Teletext chip. So all the information 
about the way the character is drawn on the 
screen is stored in this chip rather than in the 
computer’s RAM. All the RAM needs to do is 
to store the character’s ASCII code which is 
then sent on to the Teletext chip. 

The Teletext letters, numbers, punctu- 
ation and most of the symbols have the same 
ASCII codes as characters in the other modes. 
But whereas the other modes leave 1 28 ASCI I 
codes undefined (so they can be used for 
UDGs), the Teletext mode uses some of these 
codes for graphics characters such as the 
shape and others as extra control codes to 
change colour. In fact it uses the set of 256 
possible ASCII codes very efficiently to form 
a combined coloured text and graphics system 
used on television’s Ceefax, 4-Tel and Oracle 
as well as electronic networks. 



1. The diagram, right, shows how to 
work out the code number for any de- 
sired shape. The screen above shows the 
entire range of shapes and codes 


GRAPHICS AND ASCII CODES 


The first program prints out all the graphics 
characters along with their ASCII codes, so 
you can see what’s available: 

10MODE7 
20 @% = 3 

30 PRINT'“ASCII Code followed by graphics 
shape” 

40 PRINT 

50 FOR N = 0 TO 15 
60 FOR NN = 0 TO 5 
70C = 160 + N*6 + NN 
80 PRINTCHR$134,C,CHR$147 + CHR$C; 

90 NEXT 
100 PRINT 
110 NEXT 
120 @% = &90A 
130 END 

Line 20 sets the field width to three columns 
so all the codes and graphics fit closely 
together on the screen. Lines 50 to 70 step 
through the relevant codes. The calculation is 
arranged to print out 16 rows of 6 columns. 
The codes go from 160 to 255. 

If you look at Line 80 you’ll see there are 
four items being printed. The first is a control 
code (1 34) to print out cyan coloured text, the 
second prints out the code number, the third 
sets it in yellow graphics (code 1 47) and the 
last prints the graphics or text character 
corresponding to the code number. Here are 
the essentials of a Teletext mode line. It is 
multi-coloured with mixed text and graphics, 
plus control codes (that print as spaces) and 
yet it uses only a few bytes of memory. 


COLOUR CODESi 


In the last program the control codes 1 34 and 
147 produced the colours in the display. 


There are separate codes to colour text and 
graphics and the whole list of these codes is 
shown below: 


Colour 

Graphics 

Text 

red 

145 

129 

green 

146 

130 

yellow 

147 

131 

blue 

148 

132 

magenta 

149 

133 

cyan 

150 

134 

white 

151 

135 


Try substituting different codes in the 
program, replacing the numbers 134 and 147 
with any of the numbers above and see what 
effect they have. 


GRAPHICS SHAPES 


If you have a close look at the graphics shapes 
you’ll see they are based on a 2 by 3 grid. This 
gives an overall graphics resolution of 2 pixels 
by 40 columns (80 across) and 3 pixels by 25 
lines (75 deep). These ‘chunky’ graphics are 
suitable for nearly all applications except for 
line drawings. 

As there are 64 different combinations of 
pixels on a 2 by 3 grid it can be rather difficult 
to find out the code of a particular shape from 
the list in the manual. Fortunately, it is simple 
to calculate the code for any symbol. It is 
simply a matter of using the master grid 
pattern where each cell of the grid represents a 
number. Just compare the shape to the grid 
and add up the numbers, plus a final 160. 
Have a look at the diagram below to see what 
the numbers are, and how to add them up. 


PICTURES IN A STRING 


To print a shape on the screen just type PRINT 
CHR$ followed by its number. However, 
you’ll usually want a picture to extend over 


1 

2 

4 

8 

16 

64 

pixe 

grid 



Code: 1+4+8+64+160 = 237 


desired shape 













■ 

ASCII CODES AND TELETEXT 

■ 

SPECIAL EFFECTS 


CONTROL CODES 

■ 

DIRECT ENTRY GRAPHICS 

■ 

GRAPHICS SHAPES 

■ 

PICTURES FROM DATA 

■ 

CREATING A PICTURE 


STATEMENTS 

■ 

ADDING COLOUR 

■ 

DIRECT ENTRY CODES 



several lines on the screen and there is a bit of 
skill involved in positioning the characters in 
the correct place. Type in and RUN the next 
program to see one way in which this can be 
done: 

10 M0DE7 

20 PRINTCHR$1 45 + CHR$1 60 + CHRS240 + 
CHR$252 + CHR$252 + CHR$180 
30 PRINTCHR$145 + CHR$232 + CHR$255 + 
CHRS255 + CHR$241 + CHR$255 
40 PRINTCHR$145 + CHR$234 + CHR$255 + 
CHRS255 + CHRS239 + CHRS239 
50 PRINTCHR$1 45 + CHR$1 70 + CHRS255 + 
CHRS255 + CHRS240 + CHR$252 + CHR$ 
172 + CH R$247 + CH R$243 
60 PRINTCHR$1 45 + CHR$1 60 + CH R$1 63 + 
CHR$175 + CHR$167 + CH R$1 63 

In this program each line is printed out 
separately, one underneath the other. How- 
ever, this is not a very useful way of storing a 
picture. It is far better to join it into a single 
string as shown in the next few lines: 

70 A$ = CHR$1 45 + CHR$1 60 + CHRS240 + 
CHRS252 + CHRS252 + CHR$180 
80 B$ = CHR$1 45 + CHRS232 + CHR$255 + 
CH R$255 + CHRS241 + CHR$255 
90 C$ = CHR$1 45 + CHR$234 + CHR$255 + 
CHR$255 + CHR$239 + CHRS239 
100 D$ = CHR$145 + CHR$170 + CHR$ 

255 + CHR$255 + CHR$240 + CHR$252 + 
CHR$1 72 + CHR$247 + CHR$243 
110 E$ = CHR$1 45 + CHR$1 60 + CHR$ 

1 63 + CHR$1 75 + CH R$1 67 + CH R$1 63 
120 NL$ = CHR$1 0 + STRING$(6,CHR$8) 

130 X$ = A$ + NL$ + B$ + NL$ + C$ + 

NL$ + D$ + NL$ + STRING$(3,CHR$8) + 
E$ 

140 PRINTTAB(1 0,1 5)X$ 

150 PRINTTAB(25,7)X$ 

This time each line is assigned to a single 
string and these are all added together in Line 
130. Notice that ordinary control codes are 
used in this line to move the cursor down one 
line (CHR$ 10) and backspace (CH R$ 8). The 
whole picture can then be printed anywhere 
on the screen using PRINTTAB as shown in 
Lines 140 and 150. 


Now have a look at altering the background 
colour. The control code to do this is 1 57, and 
you have to precede it with the colour you 
would like. For example, the two codes 
CHR$1 31 +CHR$157 would make the rest of 
the line it is printed on have a yellow 
background. You need to print the codes at 
the start of every line you want to change but 
this can easily be carried out using a FOR . . . 
NEXT loop. Add the next few lines to the 
program to create a yellow area between rows 
1 2 to 20 and columns 1 2 to the end of the line: 

160 CLS 

170 FOR Y = 1 2 TO 20 

180 PRINTTAB(1 2,Y)CHR$1 31 +CHR$157 


190 NEXT 

This can be repeated anywhere on the screen, 
including colouring the whole screen as 
shown by Lines 200 to 220: 

200 FOR Y = 0 TO 24 

210 PRINTTAB(0,Y)CHR$1 30 + CHR$1 57 

220 NEXT 

230 FOR Y = 3 TO 8 

240 PRINTTAB(8,Y)CHR$1 32 + CH R$1 57 
250 PRINTTAB(25,Y)CHR$130 + CHR$157 
260 NEXT 

Lines 230 to 260 print codes for blue and 
background in positions 8 and 9 of each line, 
followed by codes for green and background 





at positions 25 and 26. This causes a blue box 
to be printed inside the green background. 
The cursor ends up on a line underneath the 
blue box. 


SCREEN LAYOUT 


Now that there are a few things on the screen, 
have a close look at just one line. Line 5 (the 
sixth line on the screen because the initial line 
is 0) is 40 columns long, numbered from 0 to 
39. Fig. 2 shows the codes that are on the 
screen. The first appears as a space, and the 
other five are hidden in the line. In fact one of 
the things to be careful about when using 
Teletext is not to alter or remove any codes 
inadvertently, such as might happen if you 
print any text on the screen. The default 
colours are always white text on a black 
background. 


SPECIAL EFFECTS 


There are a series of other control codes in 
addition to the colour codes, that control 



2. The diagram shows all the control 
codes in line 5 of the screen picture 
above. Only the first one appears as a 
gap, the other five are hidden 


some of the special effects. They are listed 
below: 

Code Effect 

1 36 Makes rest of line flash (foreground 
only) 

1 37 Turns flash off 

1 40 Gives normal height text or 

graphics 

1 41 Gives double height text or 

graphics 

152 Hides rest of line until colour 

change 

153 Joins graphics pixels 

1 54 Separates graphics pixels 

1 56 Turns background to black 

1 57 Turns background coloured 

1 58 Holds graphics 

1 59 Releases graphics 

There are other code numbers between 128 
and 1 59 but they have no effect. 


HOLD GRAPHICS 


The next few program lines demonstrate the 
difference between hold graphics and release 
graphics. Key in Line 270 first, adding it to 
the program already in memory: 

270 PRINTTAB(12,3)X$ 

This prints the graphics picture created ear- 
lier. To liven it up a little it could perhaps 
have a white tongue, easily managed by 
putting CHR$1 51 for white graphics in the 
correct position. 

The next line does this for you: 

280 PRINTTAB(1 5,6)CHR$1 51 

But the control character leaves a hole in the 
picture. This is where the hold graphics code 
158 comes in. If this code is present at some 
earlier position on the line (and not cancelled 
by a following release graphics code) then, 
whenever there would normally be a hole, the 
previous character is copied into the hole. See 
it in action in the next line: 

290 PRINTTAB(11,6)CHR$158 

A picture can often look more effective if 
separated graphics are used, causing each 
individual pixel to be surrounded by back- 
ground colour. The next few lines show how 


the little alien looks when printed in separated 
graphics: 

300 PRINTTAB(1 8,1 2)X$ 

310 FOR Y = 1 2 TO 18:PRINTTAB(17,Y)CHR$ 
154: NEXT 

The effect can be turned off on any line by 
using code 153. 


Another special effect is the ability to hide 
something printed on the screen. An appa- 
rently blank screen could thus be full of 
information! Try the next section of program, 
as before, add it to the program already in the 
computer: 

320 PRINTTAB(26,1 3)CHR$1 32 + “ □ Hello” 
330 PRINTTAB(27,13)CHR$152 

In Line 330, code 1 52 is put on the screen just 
before the message and it will cause invisible 
printing until the end of the line or a colour 
change. To counteract it, some other code has 
to be inserted — such as a code that does 
nothing, like 155: 


Double height printing is particularly useful 
for headings. The code to use is 141, but the 
point to note is that the code along with the 
text has to be repeated twice, one on each of 
the two lines needed for the double height. 
Lines 350 and 360 print the word ‘Title’ in 
double height characters, and in the colour 
magenta: 

350 PRINTTAB(4,1 )CHR$1 33 + CHR$1 41 + 
“Title” 

360 PRINTTAB(4,2)CHR$133 + CHR$141 + 
“Title” 


A final effect is the flash code 1 36. Putting this 
code in front of either text or graphics causes 
it to flash on and off until cancelled by code 
1 37. Add these last three lines to the program: 


370 PRINTTAB(3,1 )CHR$1 36 
380 PRINTTAB(3,2)CHR$136 
390 PRINTTAB(4,23) 


HIDDEN TEXT 


340 PRINTTAB(27,13)CHR$155 


DOUBLE HEIGHT 


FLASHING 


1 

2 

3 

6 

7 

8 

9 

10 

11 

24 

25 

26 

27 

28 

39 

157 
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132 

157 
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A TELETEXT PAGE 


10 M0DE7 

20 A$ = CHR$1 32 + CHR$1 57 + CHR$1 51 
30 PRINTA$ + “„$„$□ □ („(„„□ □„$(„(, 

>3 

>333 

40 PRINTA$ + “cs!cscp[H”“s3”“s3£cq[Ilcs!” 

“s3b3cs£s” 

50 PR I NTA$ + 

60 PRINTA$ + u bsDbsn ,n ‘s0s1 □ sqprEDbs 

□ □sinnbsciiir 

70 PRINTA$ + 

80 PRINTA$ + “rs0rs0D Dcsl ” + CHR$ 

224 + “sq □ □ □ □ □ cqr3 □ □ □ rs0 

□ ” 

90 PRINTA$ + “„$„$□ □ □ ,$(„ 


The listing looks quite strange but is 
actually simple. What is happening is 
that Line 20 is a string to make the back- 
ground colour blue, and set the rest of the line 
to white graphics. It is put in front of each of 
the strings that follow (Lines 30 to 90) so that 
the letters are translated as graphics charac- 
ters. Occasionally, because of the awkward 


Now that the basic theory has been 
covered have a look at preparing a Tele- 
text page either as a title page for a game 
or program, or for transmission along a 
telephone line to another computer. 


There are several methods of entering 
graphics symbols other than using CHR$ 
for each character. One is to use the 
keyboard keys direct. Try this: 


PRINT CHR$149 + “abc” 


You will notice that instead of the letters 
“abc” you get graphics characters. What is 
happening is that the control code 149 puts 
the whole of the line into magenta graphics 
mode, so that the computer assumes that 
graphics characters are following. It does not 
test it. Consequently, because the difference 
between the ordinary ASCII letters and the 
Teletext graphics is 128, instead of printing 
“a” which has ASCII value 64 it actually 
prints the Teletext character 64 + 128. So you 
can fool the computer into accepting ordinary 
keyboard input which it turns into a picture 
for you. This method does not always succeed 
since one character does not perform this 
trick: the #, but it can be entered using 
CHR$. Type in the following lines to see how 
the method works, it prints the word INPUT 
in large letters at the top of the screen. 


DIRECT ENTRY GRAPHICS 









230 NEXT 

240 PRINTED” + C$(1);C$(2);C$(4);C$(2); 

C$(5);C$(2);C$(3);C$(5) 

250 DATA 88, 92, 92, 0,95,0,0,95,0, 0,1 1 ,4 
260 DATA 0,0,0,88,92,92,95,12,15,11,12,12 
270 DATA 0,0,0,84,0,88,66,79,17,7,0,11 
280 DATA 80,16,0,74,21,0,74,21,0,2,13,0 
290 DATA 64,0,0,78,31,0,74,21,0,2,13,0 

These lines print the word ‘teletext’ at an 
angle on the screen. The word is made up of 
five sections, each made of four rows of three 
columns plus a graphics control character at 
the start of each row. The shape of the 
graphics really needs to be planned out on 
graph paper or on a grid to make up the shape 
of the letters. 

The actual strings for each section are 
stored in the string array by Line 100. Lines 
120 to 220 read the DATA for each section and 
convert it into a string. B$ helps by control- 
ling the position of the cursor, taking it down 
one line and back-spacing four places, and 
then adding on the graphics colour control 
code COL. COL is altered for each section so 
the letters are printed in different colours. 
This is repeated for each picture by the loop 
in Lines 110 and 230. 

All that remains is to print out the sections 
in the right order. Line 220 adds two cursor- 
up controls — CHR$ 11— to the end of each 
string. The Line 240 prints out each of the 
strings. An initial space is put in for a control 
code to be added later (see below). All in all, 
this is a rather complicated procedure — but it 


character, the full version of the character has 
to be input with CHR$ as shown in Line 80. 
Also, a double quote mark has to be entered 
twice for the program to recognize it. 

If you do not get a nice recognizable blue 
and white picture when you RUN this it is 
because you have mis-typed the rather incom- 
prehensible strings, which is very easy to do. 


DATA STATEMENT PICTURES 


A surer method of entering graphics charac- 
ters is to use the totals obtained by adding up 
the pixel numbers, as explained earlier and 
putting the numbers into DATA statements. 
You then let the computer add on the 160 and 
form the strings itself. Type in and RUN the 
next section: 

100 DIM C$(10) 

110 FOR N = 1 TO 5 
120 COL = 145 -l- N 

130 B$ = CHR$10 + STRING$(4,CHR$8) + 
CHR$(C0L) 

140 C$(N) = CHR$(C0L) 

150 FOR L = 1 TO 4 
160 FOR P = 1 TO 3 
170 READ C 

180 C$(N) = C$(N) + CHR$(C + 160) 

190 NEXT 

200 IF L<4 C$(N) = C$(N) + B$ 

210 NEXT 

220 C$(N) = C$(N) + CHR$11 + CHR$11 


does save a lot of work in turning the pixel 
patterns into a string. 

The next three lines add the extra control 
code at the start of each line to complete this 
part of the picture: 

300 FOR Y = 8 TO 20 
310 PRINTTAB(0,Y)CHR$1 54 
320 NEXT 


HIDDEN MESSAGES 


First add these lines to the program. They 
print the word ‘Message’ in double height 
characters on a coloured background: 

330 PRINTTAB(0,21)CHR$1 29 + CHR$1 57 + 
CHR$135 + CHR$141 -h “Message:” 

340 PRINTCHRS1 32 + CHR$1 57 + CHR$ 

1 35 + CH R$1 41 +“ Message:” + CH R$1 1 ; 

The last part of the Teletext screen layout 
shows yet another method of putting the 
codes on the screen using the VDU command. 
Again, the actual codes are contained in the 
DATA statement: 

350 FOR P = 1 TO 25 
360 READ C 
370 VDU C,10,8,C,11 
380 NEXT 
390 PRINT' 

400 DATA 145,158,232,233,161,146,247,229, 
236,236,1 47,228,239,238,229,1 74,1 49,1 52, 
201,207,213,177,135,136,63 






The code C is READ and then put on the screen 
twice, one above the other. It prints out a 
secret message. See if you can decode it. 


TRANSMISSION OF TELETEXT 


Now that you have a teletext page, all that is 
needed is a modem, a telephone, a small 
amount of software and something at the 
other end of the line to receive it. This multi- 
coloured complex picture could then be sent 
in just 1000 bytes of information; a re- 
markable achievement for such a simple code. 


DIRECT ENTRY CONTROL CODES 


The final part of this article shows a shorter 
method of putting the control codes onto the 
screen. So far you’ve used CHR$ and VDU for 
the codes and direct keyboard entry for the 
actual characters themselves. But the control 
codes 1 28 to 1 59 can also be entered directly. 
One minor problem is that all you can see 
after their entry is another space on the 
screen! It is only the effect upon the following 
characters on the line that will show if you 
have chosen the correct keyboard sequence. 

The method is to use the red fu nctio n keys 
in combination with the ISHIFTI and [CTRLl 
keys. The function keys produce a value that 
is added to 128 if the ISHIFTI key is pres sed at 
the same time; added to 140 with the 1CTRL1 
key and added to 1 50 if both [SHIFT] and [CTRL] 
keys are pressed simultaneously. Thus if 0 
and |CTRL| are pressed together, then code 
140 + 6 is sent to the screen which is Teletext 


code green graphics. There is one minor snag! 
The se wor k perfectly well until both [SHIFTl 
and [CTRLl are used together, when nothing 
will happen. This particular combination 
needs setting up e ach tim e the computer is 
turned on or after |BREAK[ has been pressed. 
The relevant command is to type in 
*FX228,1 50 and *FX227,1 40. This sets the base 


number for the ISHIFTI [CTRLl option to 150. 
The entire list of possibilities is shown below. 

Now try creating a picture by typing in 
both the control codes and graphics charac- 
ters in direct mode. It is a difficult thing to do 
unless you plan it out very carefully first. 


Direct entry control codes 


Function 
Key No. 

II 

ED 

0 

El 

0 

0 

El 

0 

0 

0 


[shTftI 

Nothing 

Text 

Red 

Text 

Green 

Text 

Yellow 

Text 

Blue 

Text 

Magenta 

Text 

Cyan 

Text 

White 

Flash 

Steady 


[CTRLl 

Normal 

Height 

Double 

Height 

Nothing 

Nothing 

Nothing 

Graphics 

Red 

Graphics 

Green 

Graphics 

Yellow 

Graphics 

Blue 

Graphics 

Magenta 


[shTftI 

[CTRL] 

Graphics 

Cyan 

Graphics 

White 

Conceal 

Display 

Joined 

Pixels 

Separated 

Pixels 

Nothing 

Black 

Background 

New 

Background 

Hold 

Graphics 

Release 

Graphics 
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THE FRUnS 






Release the hold on your Fruit 
Machine and try to hit the jackpot 
with the second half of the program. 
The payout’s 20 times as much as 
your stake! 


In this second part of the Fruit Machine 
article, you’ll complete the program, and the 
machine will be ready to play. 



HOLD ON TO YOUR HATS 


190 LET HOLD = 0 

200 LET TOTAL = TOTAL -10: GOSUB 750: 

IF TOTAL<0 THEN GOTO 770: LET 
NUDGE = 0: PRINT AT 13,26; INK 

210 IF HFLAG = 0 THEN LET HOLD = 0 
220 FOR 1 = 1 TO 3: FOR J = 1 TO 12: BEEP 
.001,60 

230 IF HOLD = 0 THEN PRINT AT7,10;A$(J); 
AT 7,15;B$(J);AT 7,20;C$(J);AT 10,10;A$ 
(J + 1 );AT 1 0,1 5;B$(J + 1 );AT 1 0,20;C$ 

(J + 1);AT 13,10;A$(J + 2);AT 13,15;B$ 

(J + 2);AT13,20;C$(J + 2): NEXT J: NEXT I 
240 IF HOLD = 1 THEN PRINT AT 7,1 5;B$(J); 
AT 7,20;C$(J);AT 10,15;B$(J + 1);AT 10, 
20;C$(J + 1 );AT 1 3,1 5;B$(J + 2);AT 
13,20;C$(J + 2):NEXTJ: NEXTI 
250 IF HOLD = 4 THEN PRINT AT 7,20; A$ 

(J); AT 10,20; B$(J); AT 13,20; C$(J): 
NEXT J: NEXT I 

260 IF HOLD = 6 THEN PRINT AT 7,1 5;B$(J); 
AT 10,15;B$(J + 1);AT 13,15;B$(J + 2): 
NEXT J: NEXT I 

270 IF HOLD = 2 THEN PRINT AT 7,10;A$(J); 
AT 7,20;C$(J);AT 1 0,1 0;A$(J + 1 );AT 10, 
20;C$(J + 1);AT 13,10;A$(J + 2);AT 
13,20;C$(J + 2): NEXTJ: NEXTI 
280 IF HOLD = 5 THEN PRINT AT 7,1 0;A$ 
(J);AT 10, 10;A$(J + 1);AT 13,10; 

A$(J + 2): NEXTJ: NEXTI 
290 IF HOLD = 3 THEN PRINT AT 7,1 0;A$(J); 
AT 7,1 5;B$(J);AT 10,10;A$(J + 1);AT 10, 

1 5;B$( J + 1 );AT 1 3,1 0;A$( J + 2);AT 1 3, 
15;B$(J + 2): NEXTJ: NEXTI 
300 IF HOLD< >1 AND HOLD < >4 AND 


HOLD< >6 THEN LET M = INT (RND*1 2): 
IF M = 0 THEN LET M = 1 
31 0 IF HOLD <> 2 AND HOLD < > 5 AND 
HOLD< >4 THEN LET K = INT (RND‘12): 
IF K=0 THEN LET K = 1 
320 IF HOLD< >3 AND HOLD< >5 AND 
HOLD < >6 THEN LET L = INT (RND*12): 
IF L = 0 THEN LET L = 1 
330 LET HOLD = 0 

340 PRINT AT 7,1 0;A$(M);AT 7,1 5;B$(K);AT 
7,20;C$(L);AT 1 0,1 0;A$(M + 1 );AT 1 0,1 5; 
B$(K + 1);AT10,20;C$(L + 1);AT 
1 3,1 0;A$(M + 2);AT 1 3,1 5;B$(K + 2);AT 
13,20;C$(L + 2) 


Line 190 sets the HOLD variable to zero. The 
routine looks for the value of HOLD— 
determined by the key pressed by the 
player — and spins the free reels. 

After the reels have been spun, HOLD is 
reset to zero in Line 330 — the hold buttons 
are cleared — and the reels are PRINTed in their 
stopped position in Line 340. 


REEL FRUIT 


350 GOSUB 600 

600 LET T$ = A$(M) + B$(K) + C$(L) 

610 LET M$ = A$(M + 1) + B$(K + 1) + 

C$(L + 1) 

620 LET L$ = A$(M + 2) + B$(K + 2) + C$(L + 2) 
630 IF M$ ( TO 4) = C$(1 ) AND M$ ( TO 4) 

= M$ (5 TO 8) AND M$ ( TO 4) = M$ 

(9 TO ) THEN LET TOTAL = TOTAL + 1 00: 
GOSUB 750: GOSUB 760: GOTO 380 
640 IF M$ ( TO 4) = C$ (3) AND M$ ( TO 4) 

= M$ (5 TO 8) AND M$ ( TO 4) = M$ 

(9 TO ) THEN LET TOTAL = TOTAL + 1 00: 
GOSUB 750: GOSUB 760: GOTO 380 
650 IF M$ ( TO 4) = C$ (9) AND M$ ( TO 
4) = M$ (5 TO 8) AND M$ ( TO 4) = M$ 

(9 TO ) THEN LET TOTAL = TOTAL + 50: 


GOSUB 750: GOSUB 760: GOTO 380 
660 IF M$ ( TO 4) = C$(2) AND M$ ( TO 
4) = M$ (5 TO 8) AND M$ ( TO 4) = M$ 

(9 TO ) THEN LET TOTAL = TOTAL + 50: 
GOSUB 760: GOSUB 750: GOTO 380 
670 IF M$ ( TO 4) = C$ (6) AND M$( TO 
4) = M$ (5 TO 8) AND M$ ( TO 4) = M$ 

{9 TO ) THEN LET TOTAL = TOTAL + 50: 
GOSUB 750: GOSUB 760: GOTO 380 
680 IF M$ ( TO 4) = C$(5) AND M$ ( TO 
4) = M$ (5 TO 8) AND M$ ( TO 4) = M$ 

(9 TO ) THEN LET TOTAL = TOTAL + 50: 
GOSUB 750: GOSUB 760: GOTO 380 
690 IF M$ ( TO 4) = C$ (4) AND M$ ( TO 
4) = M$ (5 TO 8) AND M$ ( TO 4) = M$ 
(9 TO ) THEN LET TOTAL = TOTAL +500: 
GOTO 820 

700 IF M$ ( TO 4) = C$ (5) AND M$ ( TO 
4) = M$ (5 TO 8) AND M$ (9 TO ) 
<>C$ (5) THEN LET 
TOTAL = TOTAL + 20: GOSUB 750: 

GOSUB 760: GOTO 380 
710 IF M$ ( TO 4) = C$(5) AND M$(5 TO 
8) < >C$(5) THEN LET 
TOTAL = TOTAL + 10: GOSUB 750: 

GOSUB 760: GOTO 380 
720 IF M$ ( TO 4) = C$(4) AND M$ ( TO 
4) = M$(5 TO 8) AND M$( TO 
4) < > M$(9 TO ) THEN GOSUB 760: 
GOTO 380 

730 IF M$ ( TO 4) = C$(4) AND M$ ( TO 
4) < > M$(5 TO 8) THEN GOSUB 760: 
GOTO 380 

740 IF M$(5 TO 8) = C$(4) AND M$(5 TO 
8) < > M$(9 TO ) THEN GOSUB 760: 
GOTO 380 

750 LET DD = INT (TOTAL/100): LET 
CC = TOTAL— (DD’100): PRINT INK 2; 
PAPER 6; AT 17,0; AT 180; “PD”; 
PAPER 7; BRIGHT 1; AT 17,1; 
DD;AT18,1;“D”; CC: RETURN 
760 LET HFLAG = 0: LET HOLD = 0: LET 
NUDGE = 0: FOR 1 = 9 TO 19 STEP 5: 
PRINT AT 16,1) INK 2; 
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m 

COMPLETE YOUR FRUIT 

■ 

ADJUSTING THE CREDIT 


MACHINE 

■ 

FLASHING HOLDS, NUDGES 

■ 

THE MAIN LOOP 


AND GAMBLES 

■ 

SPINNING THE REELS 

■ 

PRESSING THE BUTTONS 

■ 

CHECKING FOR WINNING LINES 

■ 

SOUND EFFECTS 



NEXT I: PRINT AT 13,26; INK 2; 
■ ■■■■ RETURN 


Line 350 jumps to the subroutine starting at 
Line 600, which puts the three rows that are 
being displayed on the reels into three 
strings—' T$, M$ and L$. The middle string, 
M$, is the line from which the score is 


calculated in the subroutine starting at Line 
630. The routine checks if there are any 
winning lines, and adds the winnings to the 
player’s total. 


GIVING IT THE NUDGE 


360 IF M <7 OR K = L OR L>2 THEN LET 
NUDGE =1: PRINT BRIGHT 1; PAPER 7; 


INK 2;AT 13,26;“NUDGE” 

370 LET HFLAG = I NT (RND + .5): IF 

HFLAG = 1 THEN FOR 1 = 9 TO 19 STEP 5: 
PRINT AT 16,1; INK 6; BRIGHT 1;“H0LD”: 
NEXT I 

380 LET l$ = INKEY$: IF l$ = “” THEN GOTO 
380 

390 IF !$ = “□” THEN FOR I = 9 TO 19 
STEP 5: PRINT INK 2;AT 16,1; 

NEXT I: GOTO 200 
400 IF l$ = “E” AND NUDGE = 1 THEN 
GOSUB 520: LET NUDGE = 0: PRINT AT 
13,26; INK 2; “BBBBB”: BEEP .1, 
30: GOSUB 600: LET RN = INT (RND*10): 
IF INT (RN/2) = RN/2 AND HFLAG < > 1 
THEN LET NUDGE = 1 : PRINT AT 13,26; 
IN7; BRIGHT 1; “NUDGE”: GOTO 380 
410 IF |$ = “Q” AND NUDGE = 1 THEN 
GOSUB 480: LET NUDGE = 0: PRINT AT 
13,26; INK 2; “BBBBB”: BEEP . 1 , 
30: GOSUB 600: LET RN = INT (RND'10): 
IF INT (RN/2) = RN/2 AND RN < 3 THEN 
LET NUDGE = 1: PRINT AT 13,26; INK 7; 
BRIGHT 1;“NUDGE”: GOTO 380 
420 IF l$ = “W” AND NUDGE = 1 THEN 
GOSUB 500: LET NUDGE = 0: PRINT AT 
13,26; INK 2; “BBBBB”: BEEP . 1 , 
30: GOSUB 600: GOTO 380 
430 IF l$ = “D” AND NUDGE = 1 THEN 
GOSUB 540. LET NUDGE = 0: PRINT AT 
13,26; INK 2; “BBBBB”: BEEP . 1 , 
30: GOSUB 600 LET RN = INT (RND’10): 
IF INT (RN/2) <> RN/2 THEN LET 
NUDGE = 1 : PRINT AT 13,26; INK 7; 
BRIGHT 1;“NUDGE”: GOTO 380 
440 IF l$ = “S” AND NUDGE = 1 THEN 
GOSUB 580: LET NUDGE = 0: PRINT AT 
13,26; INK 2;‘||||B”: BEEP .1, 
30: GOSUB 600: LET RN = INT (RND’10): 
IF INT (RN/2) = RN/2 THEN LET 
NUDGE = 1: PRINT AT 13,26; INK 7; 
BRIGHT 1;“NUDGE”: GOTO 380 
450 IF l$ = “A” AND NUDGE = 1 THEN 
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II 


GOSUB 560: LET NUDGE = 0: PRINT AT 
13,26; INK 2; “■■■■■”: BEEP .1, 
30: GOSUB 600: LET RN = INT (RND’10): 
IFINT (RN/2) < > RN/2 AND RN>6 
THEN LET NUDGE = 1 : PRINT AT 13,26; 

INK 7; BRIGHT 1;“NUDGE”: GOTO 380 
460 IF HFLAG = 1 AND l$ = “1” OR l$ = “2” 
OR l$ = “3” OR l$ = “4” OR l$ = “5” OR 
|$ = “6” THEN LET HOLD = VAL 1$: FOR 
1 = 9 TO 19 STEP 5: PRINT AT 16,1; INK 2; 

NEXT I: GOTO 200 

470 GOTO 380 

480 LET M = M + 1: IF M>12 THEN LET 
M = M — 12 

490 PRINT AT 7,10;A$(M);AT 

1 0,1 0;A$(M + 1 ) ;AT 1 3,1 0;A$(M + 2) : 
RETURN 

500 LET K = K + 1: IF K>12 THEN LET 
K = K — 12 

510 PRINT AT 7,1 5;B$(K);AT 

10,15;B$(K + 1);AT13,15;B$(K + 2): 
RETURN 

520 LET L=L + 1: IF L>12 THEN LET 
L = L — 12 

530 PRINT AT 7,20;C$(L);AT 

10,20;C$(L + 1);AT 13,20;C$(L + 2): 
RETURN 

540 LET L = L — 1 : IF L<1 THEN LET 
L=L + 12 

550 PRINT AT 7,20;C$(L);AT 

10,20;C$(L + 1);AT 13,20;C$(L + 2): 
RETURN 

560 LET M = M — 1 : IF M <1 THEN LET 
M = M + 12 

570 PRINT AT 7,1 0;A$(M);AT 

10,1 0;A$(M + 1 );AT 1 3,1 0;A$(M + 2) : 
RETURN 

580 LET K = K - 1 : IF K<1 THEN LET 
K = K + 12 

590 PRINT AT 7,1 5;B$(K);AT 

10,15;B$(K + 1);AT13,15;B$(K + 2): 
RETURN 

The nudge routine is very similar to the hold 
routine. Reels are moved up or down accord- 
ing to the keyboard input from the player.. 
The instructions as to which keys to press are 
displayed on the screen. On each nudge, a 
random number is generated to determine if 
another nudge is to be offered. 


THE JACKPOT 


770 CLS : PRINT AT 10,0;“D □ □ □ □ □ 

□ □ □ □ DGAME OVER □□□□□□ 

□ □□□□□ DYOU HAVE LOST ALL 
YOUR MONEY”: BEEP 1,-20 

780 PRINT '“□□DO YOU WANT ANOTHER 
GAME ? PRESS “”Y“” OR “”N“”” 

790 IF INKEY$ = “” THEN GOTO 790 
800 LET l$ = INKEY$: IF l$ = “Y” OR 
l$ = “y” THEN RUN 
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810 STOP 

820 CLS : PRINT AT 10,0;“O □ □ □ □ □ 

□ □CONGRATULATIONS^ □ □ □ □ □ 

□ □ □ OYOU HAVE JUST WON THE 
JACKPOT”: PRINT “□ □ □ □ DYOU 
ARE RICHER BY £50”: FOR J = 1 TO 3: 
FOR 1 = 1 TO 10: BEEP .01,5*1: NEXT I: 
NEXT J 

830 GOTO 780 

These routines are very simple. The ‘another 
go?’ routine — Lines 770 to 810 — is called 
when the player runs out of money. 

The Jackpot routine — Lines 820 and 
830 — tells the player the good news and adds 
£50 to the money total, before ending the 
game — the bank is bust. The player is now 
given the opportunity of another go. 


THE MAIN LOOP 


310 GOSUB1000:GOSUB2000:GOSUB3000: 

IFM > 0THEN310 
315 GOSUB4000:GOTO70 
4000 POKE53270,PEEK(53270)AND239:POKE 
53280, 2:POKE53281,8:POKE53272, 21 

4005PRINT”QI1H”;CHR$(14),”UUU 

UnHnmADDGUCK!” 

4010 PRINT‘‘BB|||||J||UUU 

[JOU HAVE RUN OUT OF MONEY!” 

4015 PRINT” Hr~]RESS THE g] PACE- BAR 
FOR ANOTHER GAME. . .” 

4020 GETA$:IFA$< >CHR$(32)THEN4020 
4025 XX = 1 :GOTO70 

Line 310 calls subroutines which spin the 
reels, check for winning lines, and check the 
player’s key presses. The loop is repeated 
until the player runs out of money. 

If the player does run out of money, Line 
315 calls the subroutine at Line 4000 which 
announces the unwelcome news, and gives the 
option of another go. 


SPINNING THE REELS 


1000 PRINT“SSBSB£BBBB 

BBBBBUUUUUUUSS 

□0QEB1I line DEW 

UUnBQE#B”;:M = M-i0 
1005 GOSUB9500 

1 01 0 Tl$ = “000000”: DM = 0: DR = 1 00: IF 
NOTH%THEN1035 
1015 IFH%THENGOSUB5500 
1020 IFI%THENGOSUB6500 
1025 IFJ%THENGOSUB7500 
1030 IFTI$<“000002”ANDH%THENFOR 
Z= 1 TO50:NEXTZ:GOTO1 01 5 
1 035 Tl$ = “000000”:IFNOTI%THEN1 055 
1040 IFI%THENGOSUB6500 
1045 IFJ%THENGOSUB7500 


1050 IFTI$ <“000002”ANDI%THENFOR 
Z = 1T01 00:NEXTZ:GOTO1 040 
1 055 Tl$ = ”000000” : I FNOTJ%TH EN 1 075 
1060 IFJ%THENGOSUB7500 
1065 IFTI$ < “000002”ANDJ%THEN FOR 
Z = 1 T01 50:NEXTZ:GOTO1 060 
1 075 H% = - 1 : 1% = - 1 : J% = - 1 : R ETU R N 

Lines 1000 to 1075 spin the reels which the 
player has chosen not to hold. H5, 15 and J% 
are the hold flags for the three reels. 


NO HOLDS BARRED 


1500 IFD% = 0THENRETURN 

1505 FORY = 1 0TOD%STEP1 0:M = M + 1 0 

1510 GOSUB9500 

1515 DR = 40:DM = 40:GOSUB8000:FOR 
T=1TO100:NEXTT,Y:RETURN 
2000 D% = 9:A = PEEK(1313):B = PEEK 
(1320):C = PEEK(1327):IFA = BANDB = C 
ANDC = 11THEND% = 0 
2005 IFA= BANDB = CANDC = 17THEN 
D% = 1 

2010 IFA = BANDB = CANDC = 23THEN 
D% = 2 

2015 IFA = BANDB = CANDC = 29THEN 
D% = 3 

2020 IFA = BANDB = CANDC = 37THEN 
D% = 4 

2025 IFA = BANDB = CANDC = 43TH EN 
D% = 5:GOTO2035 

2030 IFA = BANDB = 43THEND% = 6 
2035 I FA = BAN D B = CAN DC = 59TH EN 
D% = 6:GOTO2050 

2040 IFA = BANDB = 59THEND% = 7:GOTO 
2050 

2045 I FA = 59TH E N D% = 8 
2050 I FD% = 90RD% = 0TH EN D% = W% 
(D%):GOSUB1500:RETURN 
2055 FORA = 1172 + (D%'40)TO1 1 76 + 
(D%'40) : POKEA + 54272,1 4:NEXTA: 
LL=INT(RND(1)‘2) 

2060 FORA = 1132 + (LL’80) + (D%*40)TO 
1136 + (LL’80) + (D%’40):POKE 
A + 54272,1 2: N EXTA: CL = 1 2 
2065 GETA$:IFA$ = CHR$(13)THEND% = W% 
(D%):GOSUB1500:GOSUB9000:RETURN 
2070 IFA$ = CHR$(32)THEN2090 
2075 FORA = 1212 - (LL’80) + (D%’40)TO 
1 216 - (LL’80) + (D%'40):POKEA + 

54272, CL:NEXTA 

2080CL = 21 - CL: FORA = 1 1 32 + (LL’80) + 
(D%’40)TO1 1 36 + (LL’80) + (D%’40) : 
POKEA + 54272, CL 
2085 NEXTA:GOTO2065 
2090 FORA = 1 172 + (D%’40)TO1 176 + 
(D%’40) : POKEA + 54272,1 5:NEXTA 
2095 IF(CL = 1 5ANDLL = 0)OR(CL = 1 2AND 
LL = 1 )THEND% = W%(D% + 1 ):GOSUB 
1500:GOSUB9000:RETURN 
21 00 D% = D% - 1 :IFD% = 0THEND% = 200: 











G0SUB1 500:GOSUB9000: RETURN 
2105 GOSUB9000:GOTO2055 

Lines 1500 to 1515 are the 
credit routine, which 
increments the 
M% according 
to the amount 
the player 
has won. 

Line 2000 
to 2105 check 
for winning 
lines once the 
reels have stopped 



spinning. If a winning line has been found, 
the routine at Line 1500 is called. 

Lines 2055 to 2085 control the display to 
the right of the reels which shows the amount 
the player stands to win. 


HOLD, NUDGES AND GAMBLES 


3000 IFRND(I) < .25THENGOSUB4500 
3005 IFRND(1)<.4THENCL$ = “nSS": 

SS = 1 :H% = — 1 : 1% = — 1:J%= — 1: 
GOTO3020 

3010 GETA$:IFA$< >CHR$(32)THEN3010 
3015 RETURN 

3020 PRINT "SBBBaBBBBB 

ISSfiSIIIUUUUUU 

MID$(CL$,SS,1);:IFH%THENPRINT“nB 

3025 IFI%THENPRINT‘-@HHSHSS 

aBBBBBBa ' 'U|jfcj|j 

□□□EiUU”; 

3030 IFJ%THENPRINT"@BBBBB 

3035 GETA$:I FA$ = CHR$(32)TH ENRETURN 
3040 IFA$ < “1 ”0RA$ > “4”THEN 
SS = 3 — SS:GOTO3020 
3045 ONVAL(A$)GOTO3065, 3050,3055, 3060 
3050 H% = 0:PRINT“@BBaaaa 

aaaaaaaauuuuu 

II U □ □ E □ E @’’;:GOTO3020 

3055 i%= 0 :PRiNT“@Baaaaa 

aaaaaaaa ' ‘U huu 

□ □BQE*@”;:GOTO3020 

3060 j% = 0 : print* @ a h a a a a 

aaaaaaaavunn 

BQE»@”;:GOTO3020 
3065 H% = - 1 :l% = - 1 : J% = - 1 :G0T0 
3020 

4500 FORA = 1 760TO1 772STEP3: FOR B = ATO 
A + 1:P0KEB + 54272, 9:NEXTB 
4505 GETA$:IFA$ = CHR$(32)THEN 
N% = (A — 1757)/3:G0T0451 5 
4510 F0RB = AT0A + 1:P0KEB + 54272,10: 

NEXTB,A:GOTO4500 
451 5 FORZ = N%T01 STEP — 1:KK = 

((Z - 1 ) *3) + 1 760: P0KEKK + 54272,9: 


P0KEKK + 54273,9 

4520 GETA$:IFA$ > “9”0R(A$ < “5”AND 
A$< >“0”)THEN4520 
4525 IFA$ = “0”THENA$ = “1 0” 

4530 0NVAL(A$) -4GOSUB5000,6000, 
7000,5500,6500,7500 
4535 DR = 50:DM = 40:GOSUB8000:GOSUB 
2000: KK = ((Z — 1)*3) + 1760 
4540 I FD% = 0ANDZ = 1 THEN4550 
4545 IFD% = 0THENPOKEKK + 54272,1 0: POKE 
KK + 54273,1 0: NEXTZ 

4550 FO R A = 1 760TO1 772STEP3: FO R B = ATO 
A + 1 :P0KEB + 54272,1 0:NEXTB,A: 

RETURN 

5000 print's aaaau uu 

llllllllll'’;F$(R1%(P%)); 

bbiiiiii 

5005 IFP% = 1 5THENP% = —1 
5010 P% = P% + 1 :PRINTF$ 

(R1%(P%));“H 

aimii 

5015 IFP% 

= 15THEN 
PRINTF$ 

(R1%(0));: 

RETURN 
5020PRINTFS 
(R1 %(P% + 

RETURN 

5500 IFP% < 2THEN 

print" a b a a a u u u u u 

UIIII”;F$(R1%(14 + P%)); 

bbiiiiii 

GOTO5510 

5505 PRiNT"saaaaii!iu!i!i 

llllll”;F$(Ri%(P%— 2));‘‘BBII 

llll 

5510 IFP% = 0THENP% = 16 

551 5 P% = P% - 1 :PRINTF$(R1%(P%));"B 

aimii 

5520 IFP%= 15THENPRINTF$(R1%(0));: 
RETURN 

5525 PRINTF$(R1%(P% + 1 ));:RETURN 

6000 PRiNT'aaaaavuiiiiii 

||”;F$(R2%(Q%));“B a II II II”; 

6005 1FQ% = 1 5THENQ% = —1 

601 0 Q% = Q% + 1 :PRINTF$(R2%(Q%));" B 

a ii ii ii 

601 5 IFQ% = 1 5THENPRINTF$(R2%(0));: 
RETURN 

6020 PRINTF$(R2%(Q% + 1 ));:RETURN 

6500 IFQ%<2THENPRINT“aaaB 
B’7‘U!IU!IU”;F$(R2% 

(14 + Q%));“BB II II II ”;:G0T0651 0 

6505 pRiNT-aaaaa'V'iiiiiiii 

IT;F$(R2%(0% — 2));"B B II II 

II 

6510 I FQ% = 0TH ENQ% = 16 

651 5 Q% = Q% - 1 :PRINTF$(R2%(Q%));“B 

ailllll’; 

6520 IFQ% = 1 5THENPRINTF$(R2%(0));: 





RETURN 

6525 PRINTF$(R2%(Q% + 1 ));:RETURN 

7000 print's a a a a’ v’ii u”;f$ 
(R3%(R%));"B B II II II”; 

7005 IFR% = 1 5THENR% = —1 

701 0 R% = R% + 1 : PR I NTF$ ( R3%( R%) ) ; 

“Bail II II”; 

701 5 IFR% = 1 5THENPRINTF$(R3%(0));: 
RETURN 

7020 PRINTF$(R3%(R% + 1 ));:RETURN 
7500 IFR%<2THENPRINT"SBBB 
a’V'fclU”;f : $(R3%(i4+R%));"B 

B II II ||”;:G0T0751 0 
7505 PRINT''aaaBBV‘UU”;F$ 
(R3%(R%- 2));“B B II II II”; 

7510 I FR% = 0TH ENR% = 16 

7515 R% = R% — 1:PRINTF$(R3%(R%));“B 

ainiii 

7520 1FR% = 1 5THENPRINTF$(R3%(0));: 
RETURN 

7525 PRINTF$(R3%(R% + 1));:RETURN 


Line 3000 chooses a random number which 
determines if the player is to be offered 
nudges, while Line 3005 sets the hold flags if 
the correct random number is chosen. Lines 
3020 to 3065 flash the gamble and hold lights, 
and read the player’s input. 

Lines 4500 to 4550 are the nudge 
routine. The reel moving subroutines 
are called according to the player’s 
choice(s). Lines 5000 to 5205 make 
the first reel move up, while Lines 
5500 to 5525 make 
the first reel move 
down. Lines 
6000 to 6025, 
and Lines 6500 
to 6525 do the 
same for the 
second reel, 
and Lines 7000 
to 7025 and Lines 
7500 to 7i^ 
control the third reel. 


OTHERS 


8000 S = 54272: POKES, 150: POKES + 1, 

50 + DM:P0KES + 5,0: POKES + 6,240: 
POKES + 24,1 5 

8005 POKES + 4,1 7:F0RDD = 1T0DR:NEXT 
DD:POKES + 24,0:DM = DM + 10: 

RETURN 

9000 FORA = 1 1 72T01 532STEP40: FORB = A 
TOA + 4:P0KEB + 54272,1 5:NEXTB, A: 
RETURN 

9500 pRiNT-sBaaaaaaaa 
aaaaaaaaaa aa”» 

UfcJIJIIUUIIHIIIIIIII 

■■□”;:IN = INT(M/100) 

9505 RM = M - (IN‘100):PRINTMID$(STR$ 
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(IN),2);“n”;MID$(STR$(RM) + “0”,2, 
2);:RETURN 

Lines 8000 and 8005 are a sound effect used 
when the reels stop — see page 232. Lines 
9000 to 9505 clear the gamble display to the 
right of the reels so that it is no longer lit, 
ready for your next turn on Superfruit, the 
game for the push-button gambler. 



THE MAIN LOOP 


360 REPEAT:PROCspin:PROCcheck:PROCkeys: 
UNTILM% = 0:PROCend:RUN 

Line 360 is the heart of the Fruit Machine, 
and is REPEATed UNTIL the memory held 


drops to zero. PROCspin, PROCcheck and 
PROCkeys are called repeatedly. 

370 DEFPROCspin:VDU5:GCOL0,4:FQRA% = 0 
T02:M0VE192 + A%'320,384:PROChbox: 
NEXT 

380 VDU4,26:M% = M% - 1 0:COLOUR1 30: 
COLOUR6:PRINTTAB(12,30);M%/100; 




- V ( j 

m 




if A 

k., . jJr Yim 

? 


1078 







Z% = 8 

860 GOTO840 

870 B% = GET — 52:1 FB% = -4B%=6:ELSE 


“□ ”:C0L0UR1 28:GCOL0,1 28 
390 TIME = 0 
400 REPEAT 
410 IFH%PR0Creel1 
420 IFI%PR0Creel2 
430 IFJ%PR0Creel3 

440 UNTILTIME>100 + RND(50):IFH% 
S0UND&1 1,1 ,50,2 
450 REPEAT 
460 IFI%PR0Creel2 
470 I F J%PR0Creel3 

480 UNTILTIME > 200 + RND(50):IFI% 
S0UND&1 1 ,1 ,70,2 
490 REPEAT 
500 IFJ%PR0Creel3 

510 UNTILTIME > 300 + RND(50):IFJ% 
S0UND&1 1,1 ,90,2 

520 H% = TRUE: 1% = TRUE: J% = TRUE: 
ENDPROC 

Line 370 puts all the hold boxes in steady 
blue, and Line 380 takes lOp for a spin, and 
PRINTs the credit remaining. 

The reels are spun by Lines 390 to 510. 
The duration of the spin varies according to 
the number of reels that are being held. Line 
520 resets the hold flags. 


NO HOLDS BARRED 


530 DEFPROCcred(D%):IFD% = 0ENDPROC: 
ELSEVDU4,26:COLOUR130:COLOUR6:FOR 
A% = 1 0TOD%STEP1 0: M% = M% + 1 0: 
PRINTTAB(12,30);M%/100 
540 S0UND&1 1 ,1 ,1 50,1 :F0RB% = 0TO1 000: 

NEXT:S0UND&1 1 ,0,0,1 :NEXT:ENDPROC 
550 DEFPR0Chbox:PL0T1 , 256, 0:PLOT1 ,0,64: 
PL0T1 , - 256,0: PL0T1 ,0, - 64:PLOT0,8, 
48:PRINT“HOLD”:ENDPROC 
560DEFPROCreel1 :VDU4,28,3,1 5,6,4,31 ,3,1 1 , 

1 0,1 0,1 0,5: P% = (P% -f- 1 ) MODI 6: MOVE 
256,576:PRINTF$(R1%((P% + 1)MOD16»; 
CHR$4:ENDPR0C 

570 DEFPROCreel2:VDU4,28,8,1 5,1 1 ,4,31 ,3, 

1 1 ,1 0,1 0,1 0,5:Q% = (Q% + 1 ) MODI 6: 
MOVE576,576:PRINTF$(R2%((Q% + 1 ) 
MOD16));CHR$4:ENDPROC 
580 DEFPROCreel3:VDU4,28,1 3,1 5,1 6,4,31 ,3, 

1 1 ,1 0,1 0,1 0,5:R% = (R% -|-1)M0D16: 
MOVE896,576:PRINTF$(R3%((R% + 1 ) 
M0D16));CHR$4:ENDPR0C 

Lines 530 and 540 add money to the total and 
make a blip each time a ‘coin’ is dropped in. 

Line 550 is a PROCedure to draw a hold 
box. PL0T1— draw relative — is used so the 
same routine can be called for all three boxes. 

PROCreel starts at Line 560, and starts by 
defining a text window for the first reel. The 
pointer, P%, is adjusted also. Lines 570 and 
580 are similar lines for the second and third 
reels. 


WINNING 


590 DEFFNA:IF(R1%(P%) = R2%(Q%))AND 
(R2%(Q%) = R3%(R%)): = R1%(P%) 

600 IFR1 %(P%) = R2%(Q%)AND(R1%(P%) = 
6 0RR1%(P%) = 5): = 1 +R1%(P%) 

610 IFR1%(P%) = 6: = 8 
620 : = 9 

630 DEFPROCcheck 
640 C% = FNA 

650 IFC% = 9 ORC% = 0PROCcred(W%(C%)): 
ENDPROC 

660 VDU28,1 1 ,26,1 9,23,4 
670 C0L0UR1 30:COLOUR1 3:PRINTTAB(0,0); 
“£”;W%(C% + 1 )/1 00:COLOUR6:PRINTTAB 
(2,1 );“£”;W%(C%)/1 00:COLOUR1 4: 
PRINTTAB(4,2);“£”;W%(C% - 1 )/1 00; 

680 A% = G ET: I FA% = 1 3CLS: PROCcred (W% 
(C%)):ENDPR0C 
690 IFA%< >32GOTO680 
700 CLS:IFRND(2) = 1 PROCcred(W% 
(C%+1)):ENDPR0C 

71 0 C% = C% - 1 :IFC% = 0PROCcred(200) : 

ENDPROC 
720 GOTO670 

FNA in Lines 590 to 620 reads a winning line 
and points to the amount won in W%. The 
PROCedure in Lines 630 to 650 checks if the 
payout is 0 or £2, and credits the player. 

Line 660 defines a text window, and Line 
670 displays the gamble c hoices. The follow- 
ing lines check if [RETURN] is pressed, clear the 
text window, and increase the pointer to W% if 
the gamble has been won. 


NUDGES. HOLDS AND SPINS 


730 DEFPROCkeys 
740 IFRND(4) = 1 PROCnudges 
750 IFRND(5) > 2REPEATUNTILGET = 32: 
ENDPROC 

760 GCOL0,15:VDU5:FORA% = 0TO2:MOVE 
1 92 + A%‘320,384: PROChbox: N EXT: 

H% =TRUE:I% = TRUE:J% = TRUE:'FX1 5,1 
770 A% = GET: IFA% = 32VDU4: ENDPROC 
780 A% = A% - 48: 1 FA% < 1 0R A% > 4G0T0 
770 

790 ONA%GOTO760, 800, 81 0,820 
800 H% = FALSE:GCOL0,4:MOVE1 92,384: 

PROChbox:GOTO770 
81 0 1% = FALSE:GCOL0,4:MOVE51 2,384: 
PROChbox:GOTO770 

820 J% = FALSE = GCOL0,4 = MOVE832,384: 
PROChbox:GOTO770 

830 DEFPROCnudges:Z% = 8:GCOL0,1 28: 
COLOUR128 

840 VDU1 9,Z%,8;0;:SOUND&1 1 ,1 , 

20 + 167%, 1 TIME = 0:REPEATUNTIL 
TIME > 50RINKEY( — 99):IFINKEY( — 99) 
N% = Z% — 7:GOTO870 
850 VDU1 9,Z%,1 ;0;:Z% = Z% + 1 :IFZ% = 1 3 


IFB% < 1 0RB% > 6GOTO870 
880 ON B%GOTO890,900,91 0,920,930,940 
890 PROCreell :GOTO950 
900 PROCreel2:GOTO950 
910 PROCreel3:GOTO950 
920 PROCrd1:GOTO950 
930 PROCrd2:GOTO950 
940 PROCrd3:GOTO950 
950 S0UND&1 1 ,1 ,20,2:VDU1 9,N% + 7,1 ;0; 
960 IFFNA < 9PR0Ccheck:N% = 0:ENDPROC 
970 IFN% = 1 N% = 0:ENDPROC 
980 N% = N% - 1 :VDU1 9,N% + 7,8;0;:GOTO 
870 

990DEFPROCrd1 :VDU4, 28, 3,1 5,6,4,30,1 1,11, 
11,11,5:P% = (P% + 15)MOD16:MOVE256, 
864: PRINTF$(R1 %((P% + 1 5)MOD16)); 
CHR$4:ENDPR0C 

1 000 DEFPROCrd2:VDU4,28,8,1 5,1 1 ,4,30,1 1 , 
11,11,11 ,5:Q% = (Q% + 1 5)MOD16:MOVE 
576,864:PRINTF$(R2%((Q% + 15)M0D 
16));CHR$4:ENDPROC 

1 01 0DEFPROCrd3:VDU4, 28,1 3,1 5,1 6,4,30,1 1 , 

1 1 ,1 1 ,1 1 ,5:R%= (R% + 15)MOD16:MOVE 
896,864:PRINTF$(R3%((R% + 15)MOD 
16));CHR$4:ENDPROC 
1020 DEFPR0Cend:C0L0UR1 30:COLOUR3: 
VDU26,12:PRINTTAB(0,8);“You ran out of 
money”""" 11 Press the space-bar”"" □ □ □ 
for another go” 

1030 REPEATUNTILGET = 32:ENDPROC 

Line 740 gives a random chance of getting 
nudges — PROCnudge looks after the nudges. 
Similarly, Line 750 gives a random chance of 
holds. Line 760 flashes the hold boxes and 
resets the h old flag s. The reels are spun by 
Line 770 if |SPACE| is pressed. 

The hold flags are set in Lines 800 to 820, 
and the appropriate hold box(es) drawn. Line 
830 is the start of the nudge routine. Lines 
840 to 860 flash the nudge lights until ISPACEI 
is pressed. N% is set to the number of nudges. 

If a win is possible, Line 960 goes into the 
payout/gamble routine, and finish the nudge 
routine. The nudge routine also finishes if 
Line 970 finds that the nudges have been 
exhausted. If nudges still remain, N% is 
decremented, and the next light is flashed. 

Line 990 defines a text window for reel 
one, and scrolls it down three lines to move 
the fruit off the bottom. The pointer is 
decremented, and the next fruit is displayed 
on the reel. The second and third reels are 
spun by Lines 1000 and 1010. 

If you have a disk drive, type 'TAPE, 
then FOR A% = 0 TO & 1800:? (&E00 + 
A%) = ? (PAGE + A%): NEXT: PAGE = & E 00 
IRETURN I OLD IRETURN I before you run it. 


1079 







MM 


■I 


srrr 


350 M = 100:H= — 1:1= — 1:J = — 1: 

P = RND{16) — 1:Q = RND(16) — 1: 

R = RND{1 6) — 1 

360 SCREEN1:GOSUB1000:GOSUB2000: 

GOSUB2500:IF M>0 THEN 360 
370 CLS:PRINT@101,“YOU RAN OUT OF 
MONEY” 

380 PRINT@417,”PRESS SPACE FOR 
ANOTHER GO” 

390 IF INKEY$< >“□” THEN 390 
ELSERUN 

Line 350 sets the money held equal to $1, sets 
the hold flags to — 1 , and chooses positions 
for the three reels. Line 360 is the heart of the 
program, calling subroutines which spin the 
reels, PUT the fruit on screen, enable the 
player to have the option to gamble or take the 
win, or hold. 

If the player’s money drops below zero, 
Line 370 displays YOU RAN OUT OF 
MONEY. 


PUTTING FRUIT ON SCREEN 


500 ON CH + 1 GOTO 540,530,560,550,570, 
510,520 

51 0 PUT (XX,YY) - (XX + 31 ,YY + 1 5),B,PSET: 
RETURN 

520 PUT(XX,YY) - (XX + 31 ,YY + 1 5),C,PSET: 
RETURN 

530 PUT (XX,YY) - (XX + 31 ,YY + 1 5),A,PSET: 
RETURN 

540 PUT (XX, YY) — (XX + 31 ,YY + 1 5),BR, 
PSET:RETURN 

550 PUT(XX,YY) - (XX + 31 ,YY + 1 5),S,PSET: 
RETURN 

560 PUT (XX, YY) — (XX + 31 ,YY + 1 5), PL, 
PSET:RETURN 

570 PUT(XX,YY) - (XX + 31 ,YY + 1 5),P,PSET: 
RETURN 

1000 M = M — 10: FORL = 1 TO 
RND(3) + RND(3) 

1010 IF HGOSUB 1520 

1020 IF I GOSUB 1530 

1030 IF JGOSUB 1540 

1040 NEXT:IFH THEN SOUND 100,1 

1050 FOR L = 1 TO RND(3) + RND(3) 

1060 IF I GOSUB 1530 

1070 IF J GOSUB 1540 

1080 N EXT : I F I THEN SOUND 120,1 

1090 FORL = 1 TO RND(3) + RND(3) 

1100 IF J GOSUB 1540 
1110 NEXT:IF J THEN SOUND 140,1 
1 1 20 H = — 1 : I = — 1 : J = — 1 : RETURN 
1500 CLS:IF D = 0 THENRETURN ELSEPRINT 
@166,USING“CREDITD = □$$# # #. 
# #”;M/100:FORA = 10TOD STEP10: 


M = M + 10:PRINT@166,USING“CREDIT 
□ = □$$# ##.##”;M/100 
1510 SOUND200,1 :F0RB = 0TO400:NEXT 
B,A:RETURN 

1 520 P = (P - 1 )AND1 5:XX = 48:YY = 28:FOR 
G = P — 1T0P + 1:CH = R1(15ANDG): 
GOSUB500:YY = YY + 32:NEXT:RETURN 
1530 Q = (Q— 1 ) AND1 5:XX = 1 1 2:YY = 28: 
FORG = Q — 1 TO Q + 1:CH = R2(15AND 
G):GOSUB500:YY = YY + 32:NEXT: 

RETURN 

1540 R = (R — 1 )AND1 5:XX = 1 76: YY = 28: 
FORG = R — 1 TO R + 1:CH = R3(15AND 
G):G0SU B500:YY = YY + 32: NEXT: 

RETURN 

1550 C = 9:IF (R1 (P) = R2(Q))AND 

(R2(Q) = R3(R)) THEN C = R1(P):RETURN 
1 560 IF R1 (P) = R2(Q) AND (R1 (P) = 6 OR 
R1 (P) = 5) THEN C = 1 + R1 (P):RETURN 
1570 IF R1(P) = 6 THEN C = 8 
1580 RETURN 

Lines 500 to 570 PUT the correct fruit on 
screen. Lines 1000 to 1 120 spin the reels that 
are not being held. The reels are spun by 
calling Lines 1520 to 1540. Lines 1550 to 
1580 check if the reels end up displaying a 
winning combination, and Line 1500 adds 
the winnings to the money total. 


GAMBLES, HOLDS AND NUDGES 


2000 GOSUB1550 

2010 IF C = 9 OR C = 0 THEND = W(C): 
GOSUB1500:RETURN 

2020 CLS9 — C:PRINT@265,“gamble”;:PRINT 
@278,USING“$$# . # # IH”;W(C)/100; 
2030 PLAY“L4T20B”:PRINT@212,USING“$$ 
# . # # □ ”;W(C - 1 )/1 00;:PRINT@340, 
STRING$(7,271 — C'16); 
2040PLAY“T20C”:PRINT@212,STRING$(7, 
271 - C’16);:PRINT@340,USING“$$ # . 

# # □”;W(C + 1)/100; 

2050 R$ = INKEY$:IF R$< >“□” AND 
R$< >CHR$(13) THEN 2030 
2060 IF R$ = CHR$(13) THEN CLS:D = W(C): 
GOSUB1500:RETURN 

2070 IF RND(2) = 1 THENCLS:D = W(C + 1): 

G0SUB1 500: RETURN 
2080 C = C — 1:IF C = 0 THEND = 200: 

GOSUB1500:RETURN 
2090 GOTO2020 

2500 IFRND(4) = 1 GOSUB3060:GOTO2550 
2510 IFRND(5) <3 THEN 2560 
2520 FORK = 1 TO2000: NEXT:SCREEN1 ,0 
2530 A$ = INKEY$: IF A$< >“□” AND 
A$< >“C” THEN 2530 
2540 IF A$ = “D” THEN RETURN 
2550 CLS:PRINT@166,USING“CREDIT 
□ = □$$###.## ”;M/1 00:GOTO 
2520 

2560 SCREEN1 ,0:H = —1:1= — 1 : J = — 1 


2570 IF H THEN PUT(38,1 22) — (91 ,1 43),H, 
NOT 

2580 IF I THEN PUT(1 02,1 22) -(155,1 43), H, 
NOT 

2590 IF J THEN PUT{1 66,1 22) — (21 9,1 43),H, 
NOT 

2600 R$ = INKEY$:IF R$ = “D” THENFOR 
K = 0TO2: PUT(38 + 64* K,1 22) — 

(91 + 64* K, 1 43) , H , PSET: N EXT: R ETU R N 
3000 IF R$<“1” OR R$>“4” THEN 2570 
3010 ON VAL(R$) GOTO 3020,3030,3040, 
3050 

3020 H = — 1:1= — 1:J= — 1 :GOTO2570 
3030 H = 0:PUT (38,1 22) - (91 ,143),H,PSET: 
GOTO2570 

3040 I = 0: PUT(1 02,1 22) - (1 55,1 43), H, PSET: 
GOTO2570 

3050 J = 0: PUT(1 66,1 22) - (21 9,1 43), H, 
PSET:GOTO2570 

3060 SCREEN1 ,0:COLOR4,2:PUT(1 59,1 56) - 
(224,1 70),H,NOT:PLAY“L40T1 0” 

3070 K = 1 

3080 UNE(10 + K*16,158)-(21 +K*16,169), 
PRESET BF 

3090 IF INKEY$ = “D” THEN 3120 
3100 K = K 4- 1 :PLAYSTR$(K*2):IF K<6 
THEN 3080 

3110 FORK = 1T05:LINE(1 0 + K*1 6,1 58) — 

(21 + K’16,169),PSET,BF:NEXT:GOTO3070 
31 20 N = K:PUT(1 59,1 56) - (224,1 70), H, NOT 
3130 R$ = INKEY$:IF (R$<“5” OR R$> 
”9”) AND R$< >“0” THEN 3130 
3140 IF R$ = “0” THEN R$ = “10” 

3150 ON VAL(R$) — 4 GOTO 3160,3170,3180, 
3190 3200 3210 

3160 P = P + 2:GOSUB1520:GOTO3220 
3170 Q = Q + 2:G0SUB1 530:GOTO3220 
31 80 R = R + 2:GOSUB1 540:GOTO3220 
3190 GOSUB1520:GOTO3220 
3200 GOSUB1530:GOTO3220 
3210 G0SUB1 540 

3220 SOUND40,1:GOSUB1550:IF C<9 
GOSUB2010:N = 0:GOTO3250 
3230 IF N = 1 THEN N = 0:GOTO3250 
3240 LINE(10 + N'16,158) — (21 + N’16,169), 
PSET,BF:N = N — 1 :G0T031 30 
3250 FORK = 1 T05:LINE(1 0 + K*1 6,1 58) — 

(21 + K*16, 169), PSET, BF:NEXT: RETURN 

Lines 2010 to 2050 are the gamble routine. 
The player has the choice of collecting the 
money or gambling it against a larger win. 

The hold routine is to be found between 
Lines 2530 to 3050, and is called from Line 
2510. Flags are set in the hold routine 
according to the player’s key presses. 

Lines 3060 to 3250 are the nudge routine. 
The player is given nudges if the random 
number chosen in Line 2500 is one. The 
routine reads the player’s keyboard input, and 
moves the reels accordingly. 
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CUMULATIVE INDEX 


An interim index will be published each week. There will be a complete index in the last issue of INPUT. 


A 

Animals, measuring growth of 

1049-1056 

Animation 

of UDGs in cliffhanger 

992-997 

using colour fill techniques 
Acorn 

955-959 

using GCOL 3 

Acorn 

999-1000 

using paged graphics 

1022-1027 

Applications 

calendar and diary program 

1010-1016, 1017-1021, 

1064-1067 

hobbies file, extra options 

947-952 

text-editor program 

852-856, 878-883, 914-920 

ASCII codes 

of Teletext graphics 

BBC 

1068-1073 


B 

BASIC 

adding instructions to 
Acorn, Dragon, Spectrum 844-85 1 
Basic programming 
animation with paged graphics 1022-1027 
colour commands, Acorn 953-959 

Computer Aided Design 998-1004 
designing a new typeface 838-843 

drawing conic sections 857-863, 889-895 
mathematics of growth 1049-1056 

mechanics, principles of 933-939 

multi-key control 974-979 

musical chords and harmonies 985-991 
programming function keys 825-829 
secret codes 960-965, 1044-1048 

speeding up BASIC programs 921-927 


c 


Calendar program 


part 1 

1010-1016 

part 2 

1017-1021 

part 3 

1064-1067 

Chords, musical 


definition 

985-986 

programs to play 


Acorn, Commodore 64 

986-991 

Cliffhanger game 


pan 1 — title page 

904-913 

pan 2 — adding instructions 

928-932 

pan 3— adding a tune 

966-973 

part 4 — graphics and merging 

992-997 

part 5 — setting the scene 

1034-1043 

part 6 — perils and rewards 

1057-1063 

Codes, secret 960-965, 

1044-1048 

Colour 


defining in machine code 


1034-1043, 

1057-1063 

filling in with 


Acorn 

953-959 

routines for changing 


Commodore 64 

872-877 

using in Teletext mode 


BBC 

1068-1073 

Computer Aided Design 


rubber-banding and picking 


and dragging 

998-1004 


Conic sections 857-863, 889-895 

Cryptography 960-965, 1044-1048 


D 


Diary program 


pan 1 

1010-1016 

pan 2 

1017-1021 

pan 3 

1064-1067 

Digital clock routine 

896-898 

Direct entry control codes, 


table of, BBC 

1073 


E 

Engineering 

see mechanics 


F 

Fibonacci numbers 
Filling in with colour 

Acorn 

Fruit machine game 

part 1 
part 2 

Function keys, programming 
Acorn, Commodore 64, Vic 20 826-829 


G 

Games 

cliffhanger 904-913, 928-932, 

966-973, 992-997, 1034-1043, 1057-1063 
fruit machine 1028-1033, 1074-1080 

goldmine 830-837, 864-871 

multi-key control for 974-979 

othello 980-984, 1005-1009 

wordgame 899-903, 940-945 

Golden ratio 1056 

Goldmine game 

part 1 — basic routines 830-837 

part 2 — option subroutines 864-871 

Graphics 

colour commands, Acorn 953-959 

data statement, BBC 1072 

direct entry, BBC 1071-1073 

effects using curves 857-863, 889-895 
hi-res 

for custom typeface 838-843 

setting up new commands 
Commodore 64 872-877 

hold and release, BBC 1070 

paged, for animation 1022-1027 

picking and dragging 1000-1004 

rubber-banding 998-1000 

using Teletext mode, BBC 1068-1073 
Graphs 

in plant growth program 1052-1054 

Grid 

for Teletext graphics 
BBC 1068 


H 

Hobbies file, extra options for 947-952 


I 

Instructions, adding to BASIC 
Acorn, Dragon, Spectrum 844-851 


K 

Keyboard, matrix of 974-976 

Keypresses 
detecting 

Acorn, Commodore 64, Vic 20 827-829 

in cliffhanger game 929-932 

for direct entry graphics 
BBC 1073 

how they work 826, 974 

multiple, programming for 974-979 


L 

Letter-generator program 838-843 


M 

Machine code 

games programming 
see cliffhanger 

merging routines 992-997 

routines for hi-res graphics 

Commodore 64 872-877 

routine to alter BASIC 844-849 

timer routine 896-898 

tune routine 966-973 

Mathematical functions 
in mechanics 935 

speedy use of 923-924 

to draw curves 857-863, 889-895 

to measure growth 1049-1056 

Mechanics 

programs to show principles of 933-939 

Memory 

mapping, definition 1023 

paged graphics in 1023-1027 

requirements of Teletext mode 
BBC 1068 

saving vs speed 923 


Merging machine code routines 992-997 
Multi-key control, programming for 

974-979 

Music 

chords and harmonies 985-991 

machine code routine for 966-973 


N 

Numbers 

Fibonacci 1056 

generation program 1054-1055 


0 

Othello board game 

part 1 980-984 

part 2 1005-1009 

Overwriting, avoiding 994-997 

P 

Paged graphics 1023-1027 

Peripherals 

robotics 884-888 


Picking and dragging 

1000-1004 

Plant growth program 

1052-1053 

PLOT 

new commands, Acorn 

953-959 

PROCedures, Acorn 

advantages of 

922, 924 

use of to fill with colour 

954-959 


R 


Rectangles, program to draw 

1056 

Robotics 

884-888 

Rubber-banding 

998-1000 


s 


SAM chip, Dragon, Tandy 

SAVEing 

1043 

problems with when merging 

Scaling 

992-997 

custom typeface 

924-927 

parabolas and hyperbolas 859-861,863 

Search routines 

binary and serial 

924-927 

in text-editor program 

Sort routines 

914-920 

in hobbies file program 

947-953 

in text-editor program 

914-920 

Speeding up BASIC programs 
Sprites, Commodore 64 
in cliffhanger game 

921-927 


993-995, 1058-1060 


T 

Teletext mode, BBC 
Text-editor program 

part 1 — basic routines 
part 2 — editing facilities 
part 3 — sorting, searching, 
formatting and printout 
Timer routine 
for BASIC lines 
machine code 
Typeface, setting up new 


U 

UDGs 

in cliffhanger game 

992-997, 1037-1038, 1060-1062 
in fruit machine game 1028-1033 

stock, storing 1040 


V 

Variables 

managing for program speed 923-925 

VDG chip, Dragon, Tandy 1043 


W 

Wordgame 

part 1— basic routines 899-903 

part 2— adding the options 940-945 


1056 

953-959 

1028-1033 

1074-1080 


1068-1073 

852-856 

878-883 

914-920 

922 

896-898 

838-843 


The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 
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A MARSHALL CAVENDISH m 


U Willie 9 s getting impatient after all 
these weeks of waiting , so start him off 
on his picnic in CLIFF H ANGER 


U HOW BASIC PROGRAMS ARE 
STORED reveals the inner workings of 
microcomputers 


U INPUT S SOUND ANALYZER is an 
excellent introduction to up-to-the- 
minute digital recording 


L J Visit the shrink 9 s and expand your ego 
with the DRAWING AID program. Draw 
or inspect fine detail on screen by simple 
key presses 


Impatient astronauts can enter the 
complete LUNAR LANDER game 


LJ You can almost hear the cogs grating 
as you start teaching your computer to 
think in the FOX and GEESE game 
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